请教老师，用公式去重复数，谢谢！

zhangcheng6688

无关岁月 发表于 2024-2-6 07:29
这个问题我也遇到过，因为不是必须下载，所以我也没去研究过，要不换个浏览器或者下载软件试试

好的收到，谢谢！！！

lanjialing

我也遇到这个问题，一般是压缩工具问题，更换另一个压缩工具试试。

zhangcheng6688

学习一下字典
Sub test()
lastr = Cells(Rows.Count, "m").End(xlUp).Row
arr = Range("m62:m" & lastr)
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
   If arr(i, 1) <> "" Then
      sz = Split(arr(i, 1), ",")
      Set d = CreateObject("scripting.dictionary")
      For j = 0 To UBound(sz)
         d(sz(j)) = ""
      Next
      For Each vkey In d.Keys
         s = s & vkey & ","
      Next
      s = Mid(s, 1, Len(s) - 1)
      brr(i, 1) = s
      s = ""
      Set d = Nothing
    End If
Next
[n1].Resize(i - 1, 1) = brr
End Sub