vb字典數(shù)組一列？
Sub s() Dim r%, s$, i%, j%, arr, brr%(9) r = Range("a65536").End(xlUp).Row arr = [a1].Resize(r) For i = 1 To r brr(arr(i, 1)) = brr(arr(i, 1)) + 1 Next For j = 0 To 9 If brr(j) > 1 Then s = s & " " & j Next [d9] = Replace(Trim(s), " ", ","
)End Sub
上一篇入戶口名字有禁用字體
下一篇mate如何換6