多列数据中删除与某列数据相同的部分

贝格尔

比如说有5列数据，以A列数据为参考，BCDE列中出现与A列相同的单元格（无论行号）则删除，整体效果如附件所示，因为我要处理几百列这种数据，希望能提供代码，非常感谢！

贝格尔

这个是附件，还请各位大神帮助，谢谢！

jiminyanyan

贝格尔 发表于 2018-6-26 21:01
这个是附件，还请各位大神帮助，谢谢！

可以实现，先做个记号……。

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, arr, dic, n
  Set dic = CreateObject("scripting.dictionary")
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2))
  For j = 1 To UBound(arr, 2)
    n = 0
    For i = 1 To UBound(arr, 1)
      If j = 1 Then
        dic(arr(i, j)) = vbNullString: brr(i, j) = arr(i, j)
      Else
        If Not dic.exists(arr(i, j)) Then n = n + 1: brr(n, j) = arr(i, j)
      End If
  Next i, j
  [i1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

贝格尔

结果很完美，非常好，太谢谢了！@一把小刀闯天下以及各位帮助我的人