Excel 问题 如何用VBA同时进行几组自动编号问题?

来源：百度知道 编辑：UC知道 时间：2024/05/31 02:59:12
想在Excel中同一列同时进行几组自动编号,如给出数据"A"则在单元格内显示编号"101""102""103"....给"B"则显示"201""202".....给"D"显示"401""402"....请赐教!谢谢

如数据在A列中,想在B列中显示编号,编制宏:
Sub abc()
a = 1
b = 1
c = 1
d = 1
For i = 1 To Range("A2").End(xlDown).Row
If Cells(i, "A") = "A" Then
Cells(i, "B") = "1" & a
a = a + 1
End If
If Cells(i, "A") = "B" Then
Cells(i, "B") = "2" & b
b = b + 1
End If
If Cells(i, "A") = "C" Then
Cells(i, "B") = "3" & c
c = c + 1
End If
If Cells(i, "A") = "D" Then
Cells(i, "B") = "4" & d
d = d + 1
End If
If Len(Cells(i, "B")) = 2 Then
Cells(i, "B") = Mid(Cells(i, "B"), 1, 1) & "0" & Mid(Cells(i, "B"), 2, 1)
End If
Next
End Sub