Excel vlookup獲取所有出現的單元格詳細信息？

Question

我正在將數據表單行Data1與Data 2匹配進行自動化

我已經通過循環語句完成了，但是問題是花很多時間，當行數增加時

因此，我計划通過vlookup進行操作，在vlookup中，僅返回第一個出現的單元格，但我需要找到所有匹配的單元格並突出顯示匹配的行，如圖所示。

Answer 1

直接使用單元會降低代碼性能。 嘗試將Data1和Data2設置為數組並使用數組。

像這樣：

With ActiveSheet
    arr = .Range(.[A2], .Cells(.Rows.Count, "A").End(xlUp)).Value
    arr2 = .Range(.[D2], .Cells(.Rows.Count, "D").End(xlUp)).Value

    For i& = 1 To UBound(arr)
        For j& = 1 To UBound(arr2)
            If arr(i, 1) = arr2(j) Then
                ...
            End If
        Next j
    Next i
End With

Answer 2

希望你正在尋找這個

Sub testvlookup()
    Dim lastrow, lastrowdata, incre, i, j As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    lastrowdata = Range("D" & Rows.Count).End(xlUp).Row
    incre = 6
    For i = 2 To lastrow
        For j = 2 To lastrowdata
            If Range("A" & i).Value = Range("D" & j).Value Then
                Range("D" & j, "G" & j).Interior.ColorIndex = incre
            End If
        Next j
        incre = incre + 1
    Next i
End Sub

Answer 3

我不明白為什么要減少許多行的意義，擁有更多有關此的信息會很好。

我會像其他人一樣做，花費100000次比較需要大約1秒鍾。

Dim i As Integer
Dim b As Integer

i = 1

While i < 20000
Range("A1:A5").Copy Range(Cells(i, 4), Cells(i + 5, 4))
i = i + 5
Wend

MsgBox ("hi")
i = 1
While i < 7
   b = 3
While b < 20000
    If Cells(i, 1).Value = Cells(b, 4).Value Then
        Cells(b, 4).Interior.ColorIndex = i
    End If
b = b + 1
Wend
i = i + 1
Wend
End Sub