请帮忙增加发项号，多谢！

TSGRH

想要的结果。请帮忙增加发项号，多谢！

sxbjzjf110

没有办法区分呀？

shiruiqiang

quqiyuan

如果就是增加这个编号的话，公式更方便
=COUNTIF($E$2:E2,E2&"*")

客非

quqiyuan 发表于 2024-5-21 18:06
如果就是增加这个编号的话，公式更方便
=COUNTIF($E$2:E2,E2&"*")

为什么加一个"*"就可以处理大数字文本了？

quqiyuan

客非 发表于 2024-5-21 18:12
为什么加一个"*"就可以处理大数字文本了？

countif函数对超过15位数字就直接忽略了后面的数字，加了星号就是认为是文本了

客非

quqiyuan 发表于 2024-5-21 18:15
countif函数对超过15位数字就直接忽略了后面的数字，加了星号就是认为是文本了

学到了学到了

gwjkkkkk

字典应该更方便，写个数组的。
Option Explicit
Sub TEST1()
    Dim ar, i&, j&, p&, n&
   
    ar = Range("E1", Cells(Rows.Count, "E").End(xlUp)).Offset(1).Value
   
    p = 1
    For i = 1 To UBound(ar) - 1
        If ar(i + 1, 1) <> ar(p, 1) Then
            n = 0
            For j = p To i
                n = n + 1: ar(j, 1) = n
            Next j
            p = i + 1
        End If
            
    Next i
   
    [B2].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

。。。。。。

ykcbf1100

字典参与一下。