求助大佬用VBA或更简便的方法整理表格数据

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = Sheet1.[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 4)
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   m = m + 1
   brr(m, 1) = arr(i, 1)
   d(arr(i, 1)) = d(arr(i, 1)) + 1
   brr(m, 3) = d(arr(i, 1))
   brr(m, 4) = arr(i, 2)
   brr(m, 2) = arr(i, 1) & "-" & brr(m, 3)
Next
Sheet2.[a3].Resize(m, 4) = brr
End Sub

macrov

=A3&"-"&COUNTIF($A$3:A3,A3)，VBA代码稍多

沈默00

365函数写一个，，
B2=LET(_x,COUNTIF($A$3:$A3,$A3),HSTACK(A3&"-"&_x,_x))     下拉

沈默00

C2=COUNTIF($A$3:$A3,$A3),  下拉，，，
B2 就连接一下好了

mx36771

魂断蓝桥 发表于 2024-6-19 12:33
Sub a()
Dim cnn, myf$, sql$, arr, i&, d
Set d = CreateObject("Scripting.Dictionary")

谢谢老师~

mx36771

zhangcheng6688 发表于 2024-6-19 13:12
学习一下字典，打扰了
Sub test()
arr = Sheet1.[a1].CurrentRegion

谢谢老师

mx36771

沈默00 发表于 2024-6-19 13:47
C2=COUNTIF($A$3:$A3,$A3),  下拉，，，
B2 就连接一下好了

谢谢老师又学到一个新公式

mx36771

macrov 发表于 2024-6-19 13:22
=A3&"-"&COUNTIF($A$3:A3,A3)，VBA代码稍多

你这个方法好像就不用单独插入C列统计C列了对吗

mx36771

Qs18 发表于 2024-6-19 12:59
试一下........

老师 如果把BC列删除再重新整理好像就没有标头了

Qs18

mx36771 发表于 2024-6-19 15:12
老师 如果把BC列删除再重新整理好像就没有标头了

哦，表头自己加一下就可以了，这个非常简单的。或者就不要把表头删除了，也可以，这个是非常灵活的。您看每个老师的代码都是不一样的。灵活运用，自己试着大胆的尝试。