用VB匹配A列和B列的共同数据并输出在C列

77363714

sdc3211772 发表于 2018-12-19 23:39
Sub test123()
Dim d As Object, arr, arr2, i%, j%, brr(), m%, n%
    Set d = CreateObject("scrip ...

你好，这组代码正是刚需，但是跨工作表如何解决这个问题？例如Sheet1表中A列和B列数据，如果在Sheet2表中A列依次显示？

明天会更好zj

77363714 发表于 2024-2-18 01:29
你好，这组代码正是刚需，但是跨工作表如何解决这个问题？例如Sheet1表中A列和B列数据，如果在Sheet2表中 ...

从头开始学习吧，这个算是很基础的了。

xzxsnh

Sub shishi()
Dim i, j, k, arr, brr()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
arr = [a2:b30]
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr)
                 k = arr(i, 2)
            If k = "" Then
                Exit For
            Else
               If arr(j, 1) = arr(i, 2) Then
                    dic(arr(i, 2)) = ""
               End If
            End If
           Next
    Next
    Cells(2, "c").Resize(dic.Count) = Application.Transpose(dic.keys)
End Sub

xzxsnh

Sub shishi()
Dim i, j, k, arr, brr()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
arr = [a2:b30]
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr)
                 k = arr(i, 2)
            If k = "" Then
                Exit For
            Else
               If arr(j, 1) = arr(i, 2) Then
                    dic(arr(i, 2)) = ""
               End If
            End If
           Next
    Next
    Cells(2, "c").Resize(dic.Count) = Application.Transpose(dic.keys)
End Sub
新手来看看哈