请老师用VBA,找出一列与另两列相同数，谢谢！

cartel

请老师用VBA,找出一列与另两列相同数，谢谢！.zip (15.97 KB, 下载次数: 18)

2024-3-23 14:49 上传

点击文件名下载附件

无敌小猪猪

无敌小猪猪

无敌小猪猪 发表于 2024-3-23 15:37

附件供参考！

gwjkkkkk

Option Explicit
Sub TEST9()
    Dim ar, br, i&, j&, k&, r&, dic(1) As New Dictionary, isFlag As Boolean
   
    Application.ScreenUpdating = False
    ReDim ar(1)
    For i = 0 To 1
        ar(i) = Range(Cells(1, i + 7), Cells(Rows.Count, i + 7).End(xlUp)).Value
        For k = 1 To UBound(ar(i))
            dic(i)(ar(i)(k, 1)) = Empty
        Next k
    Next i
   
    ar = Range("E1", Cells(Rows.Count, "E").End(xlUp))
    For i = 1 To UBound(ar)
        br = Split(ar(i, 1), ",")
        isFlag = False
        For j = 0 To 1
            If dic(j).Exists(br(j)) Then isFlag = True: Exit For
        Next j
        If isFlag = False Then
            r = r + 1
            ar(r, 1) = ar(i, 1)
        End If
    Next i
   
    Columns("F").Clear
    If r Then [F1].Resize(r) = ar
    Erase dic
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

cartel

两位老师好！
由于我的表达不是很清楚，
比如
G列代表第1位数，G列有0，那就E列0开头的行就不显示
H列代表第2位数，H列有3，那就E列二位3的行就不显示
请老师看下修改附件 请老师用VBA,找出一列与另两列相同数(修改)，谢谢！.zip (19.79 KB, 下载次数: 3)

2024-3-23 18:41 上传

点击文件名下载附件

hellostock

不知道问题是不是难，但解释很难，越解释越难。

gwjkkkkk

cartel 发表于 2024-3-23 18:44
两位老师好！
由于我的表达不是很清楚，
比如

改一句就行，你二次提供的数据类型不一样。。。

swl4561255

1. Sub test()
   
2. ar = Range("E1").End(4).Row
   
3. arr = Range("E1:E" & ar)
   
4. br = Range("G1").End(4).Row
   
5. Dim brr()
   
6. For i = 1 To ar
   
7.   r = Split(arr(i, 1), ",")
   
8.   If Application.CountIf(Range("G1:G" & br), r(0)) = 0 And Application.CountIf(Range("H1:H" & br), r(1)) = 0 Then
   
9.     m = m + 1
   
10.     ReDim Preserve brr(1 To m)
    
11.     brr(m) = arr(i, 1)
    
12.   End If
    
13. Next
    
14. [F1].Resize(m, 1) = Application.Transpose(brr)
    
15. End Sub
    

复制代码

LIUZHU

WPS完全可以用JSA代码