Excel中用VBA，按顺序添加序号？

简单的说就是 点 大项，在A列非空，依次写A或B。。。C...D

小项 就是 数字 递增，根据前面的

A列先输入 A

Sub 大项()

Dim i

For i = Range("A65536").End(xlUp).Row To 1 Step -1

x = Asc(Cells(i, 1))

If (x >= 65 And x <= 90) Then

n = Range("A65536").End(xlUp).Row

Cells(n + 1, "A") = Chr(1 + x)

Exit Sub

End If

Next

End Sub

Sub 小项()

Dim n

n = Range("A65536").End(xlUp).Row

x = Asc(Cells(n, 1))

If (x >= 65 And x <= 90) Then

Cells(n + 1, "A") = 1

Else

Cells(n + 1, 1) = Cells(n, 1) + 1

End If

End Sub

Sub s()

    n = Cells(Rows.Count, 1).End(3).Row

    For i = 6 To n

        Cells(i, "u") = i - 5

    Next

End Sub

I=1

While cells(9,i)<>""

i=i+1

endW

for J=1 to 11

cells(9,i+j-1)=chr(64+j)&j

next i

大概这个意思吧，未经验证。

---