当前位置：首页 → 问答吧 → 在A列生成序号可能吗？？

在A列生成序号可能吗？？

时间：2011-08-06

来源：互联网

有没有可能根据B列单元格不为“空白”时，在A列生成序号？？
B列不为“空白”单元格是可变的

附件

自动序号.rar(2.99 KB)

2011-8-6 13:40, 下载次数: 15

作者: w060925 发布时间: 2011-08-06

这样的？
公式在A列

这里使用了subtotal 选用功能参数3 用来计数
关于subtotal 请参阅此帖
http://club.excelhome.net/viewth ... ;highlight=subtotal

[ 本帖最后由 hwmj8301 于 2011-8-6 13:56 编辑 ]

附件

自动序号.rar(3.84 KB)

2011-8-6 13:48, 下载次数: 24

作者: hwmj8301 发布时间: 2011-08-06

深表感谢！！！

作者: w060925 发布时间: 2011-08-06

vba版
Sub zhz3230()
x = 1
For i = 9 To Sheets("信息表").Range("b65536").End(xlUp)
If Sheets("信息表").Cells(i, 2) <> "" Then
Sheets("信息表").Cells(i, 1) = x
x = x + 1
End If
Next
End Sub

作者: zhz3230 发布时间: 2011-08-06

深表感谢！！！

作者: w060925 发布时间: 2011-08-06

复制内容到剪贴板

代码:

Sub aa()

Dim arr, y%, x%
With Sheet1
      arr = .Range("b9", .[b65536].End(3))
End With
Set d = CreateObject("scripting.dictionary")
y = 1
For x = 1 To UBound(arr)
      If Len(arr(x, 1)) <> 0 Then d(arr(x, 1)) = y: y = y + 1
      If d.exists(arr(x, 1)) Then Sheet1.Cells(8 + x, 1) = d(arr(x, 1))
Next x
End Sub

写好后才看到有几位老师帮你写了，最近在学习字典，所以写了个。

作者: flysum2008 发布时间: 2011-08-06

A9=IF(B9="","",COUNT($B$9:B9))

作者: yueqishuai 发布时间: 2011-08-06

谢谢大家的帮助！！！

作者: w060925 发布时间: 2011-08-06