Question

excel vb如何设置序列号问题？B列有数值时显示1 遇到空格 数值显示2 再遇到空格 显示3 以此类推

Answer 1

可以用函数公式解决，在A2输入公式：
=IF(ISNUMBER(B2),IF(ISTEXT(A1),MAX(A$1:A1)+1,A1),"")
将公式向下复制。
在VB中可以用一个循环将公式依次写入A列。

追问

请问VB 中循环如何写 谢谢

追答

Dim h, i As Integer
h = Sheets("sheet1").Range("B65536").End(xlUp).Row
i = 2
While i <= h
Range("A" & i).FormulaR1C1 = "=IF(ISNUMBER(RC[1]),IF(ISTEXT(R[-1]C),MAX(R1C:R[-1]C)+1,R[-1]C),"""")"
i = i + 1
Wend
Range("A2:A" & h).Copy
Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone