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

gitigou

各位大侠，能用VBA写一下编号吗？从001开始，遇到ABC就加1 编号.zip (7.97 KB, 下载次数: 7)

2023-5-2 10:33 上传

点击文件名下载附件

3190496160

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

cjc209

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

3190496160

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

gitigou

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

谢谢清风老师