☰

使用 vba 比較兩列的符合項

tag-icon • tag-icon microsoft-excel vba macros
使用 vba 比較兩列的符合項

如果有人知道如何更快地完成以下任務，我將非常感激。我在 A 列中有一個姓名列表，我想看看這些姓名中是否有任何一個出現在 C 列中。但是，當我使用 A 列中大約有 3000 個值、C 列中大約有 150000 個值的完整數據時，我不確定它是否正確運行，因為它已經接近兩個小時並且尚未完成。

Sub compare_cols122()

    Dim NameList As Worksheet
    Dim i As Long, j As Long
    Dim LastRow As Long

    Set NameList = Excel.Worksheets("Names")


    LastRow = NameList.UsedRange.Rows.Count

    Application.ScreenUpdating = False

    For i = 2 To LastRow
        For j = 2 To LastRow
            If NameList.Cells(i, 1).Value <> "" Then
                If InStr(1, NameList.Cells(j, 3).Value, NameList.Cells(i, 1).Value, vbTextCompare) > 0 Then
                    NameList.Cells(j, 3).Interior.ColorIndex = 6
                    NameList.Cells(i, 1).Interior.ColorIndex = 6
                    Exit For
                Else
                End If
            End If
        Next j
    Next i

Application.ScreenUpdating = True

End Sub

答案1

這是透過將資料載入到數組並與它們進行比較來加速的程式碼：

Sub compare_cols122()

    Dim NameList As Worksheet
    Dim i As Long, j As Long

    Set NameList = Excel.Worksheets("Names")

    Dim rngNames As Range
    Set rngNames = Range("A1", Range("A1").Offset(Rows.Count - 1).End(xlUp))
    Dim varNames As Variant
    varNames = rngNames.Value2

    Dim rngData As Range
    Set rngData = Range("C1", Range("C1").Offset(Rows.Count - 1).End(xlUp))
    Dim varData As Variant
    varData = rngData.Value2

    Application.ScreenUpdating = False

    For i = LBound(varNames) + 1 To UBound(varNames)
        For j = LBound(varData) + 1 To UBound(varData)
            If varNames(i, 1) <> "" Then
                If InStr(1, varData(j, 1), varNames(i, 1), vbTextCompare) > 0 Then
                    NameList.Cells(j, 3).Interior.ColorIndex = 6
                    NameList.Cells(i, 1).Interior.ColorIndex = 6
                    Exit For
                Else
                End If
            End If
        Next j
    Next i

    Application.ScreenUpdating = True

End Sub

請注意，交換內部和外部循環只會減慢搜尋速度，無論匹配有多稀有。

答案2

一遍又一遍地從單元格讀取資料效率很低。

使用數組將所有值載入到其中。

然後對數組執行您需要執行的操作。

一切完成後，將值放回儲存格中。

相關內容