[已解决]对应两列数值有相同 则清除其中一列数值

lijian8003

BA1:GN500 与 HA1:MN500 两区域
BA列对应HA列，如有相同数值，则清除BA列
BB列对应HB列，如有相同数值，则清除BB列
BC列对应HC列，如有相同数值，则清除BC列
…
GN列对应MN列，如有相同数值，则清除GN列
例如：
BA列        HA列
01            01
01            02        
01            03        
20            04        
20            05        
               06
BA列与HA列有相同数值01，则清除BA列

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-7 19:02

Sub demo()
   a = [ha1:mn1000]:ReDim b(1 To UBound(a, 2), 99)
   For i = 1 To UBound(a)
      For j = 1 To UBound(a, 2): b(j, a(i, j)) = 1: Next
   Next
   a = [ba1:gn1000]
   For x = 1 To UBound(a, 2)
      For y = 1 To UBound(a)
         If a(y, x) = 0 Then Exit For
         If b(x, a(y, x)) Then:[az1:az1000].Offset(, x).ClearContents:exit for
      Next
   Next
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = [ha1:mn1000]:ReDim b(1 To UBound(a, 2), 99)
   For i = 1 To UBound(a)
      For j = 1 To UBound(a, 2): b(j, a(i, j)) = 1: Next
   Next
   a = [ba1:gn1000]
   For x = 1 To UBound(a, 2)
      For y = 1 To UBound(a)
         If a(y, x) = 0 Then Exit For
         If b(x, a(y, x)) Then:[az1:az1000].Offset(, x).ClearContents:exit for
      Next
   Next
End Sub

祝順心，南無阿彌陀佛！