求助

dlsojia

我先 框选 a3 到b16的 区域  让b 列  根据a列  来自动编号
当a列第一次出现收时  对应的b列编号 就是 001
当a列第二次出现收时  对应的b列编号 就是002
比如 在这个框选的区域 只有 6个收  那么 编号最后006
再开始 给付编号  第一次出现的付  编号 007
第二次出现的付  对应编号 008

hasyh2008

Sub 编号()
  Dim Arr
  Dim Rc%, K%
  Arr = ActiveSheet.Range("A1").CurrentRegion
  K = 1
  For Rc = 2 To UBound(Arr)
    If Arr(Rc, 1) = "收" Then
      Arr(Rc, 2) = Application.Text(K, "000")
      K = K + 1
    End If
  Next Rc
  For Rc = 2 To UBound(Arr)
    If Arr(Rc, 1) = "付" Then
      Arr(Rc, 2) = Application.Text(K, "000")
      K = K + 1
    End If
  Next Rc
  ActiveSheet.Range("A1").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End Sub

金樽空对月

1. Sub mynumber()
   
2. Dim x%, y%, k%, ar, br
   
3. ar = Range("a3:b" & Range("a100000").End(3).Row)
   
4. br = Array("收", "付")
   
5. For x = 0 To 1
   
6.     For y = 1 To UBound(ar)
   
7.         If ar(y, 1) = br(x) Then
   
8.             k = k + 1
   
9.             ar(y, 2) = "'" & Format(k, "000")
   
10.         End If
    
11.     Next y
    
12. Next x
    
13. Range("a3").Resize(k, 2) = ar
    
14. End Sub

复制代码

hasyh2008

金樽空对月 发表于 2022-5-12 10:35

高手！！学习了！！！！