VBA从001开始编号，遇到ABC就加1

gitigou · 发表于 2023-5-2 10:38

各位大侠，能用VBA写一下编号吗？从001开始，遇到ABC就加1

编号.zip (7.97 KB, 下载次数: 7) 编号.png

3190496160 · 发表于 2023-5-2 10:57

公式就可以搞定的，何必vba呢？
B2="D"&TEXT(COUNTIF($A$2:A2,"ABC"),"0000")
然后下拉即可

cjc209 · 发表于 2023-5-2 11:01

函数法
="D"&TEXT(COUNTIF($A$2:A2,"ABC"),"000") 下拉

3190496160 · 发表于 2023-5-2 11:01

Sub 编号()
With Sheet1
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:b" & r)
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         If Trim(ar(i, 1)) = "ABC" Then
            n = n + 1
         End If
         ar(i, 2) = "D" & Format(n, "0000")
      End If
Next i
.Range("a1:b" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-5-2 11:02

gitigou · 发表于 2023-5-2 16:49

3190496160 发表于 2023-5-2 11:02

谢谢清风老师

		自动登录	找回密码
密码			免费注册

[求助] VBA从001开始编号，遇到ABC就加1