如何检查每个单元格中的值从一列到另一列中的每个单元格

Question

我得到了2组值，我需要突出显示来自2列的常用值（字母数字）。行数超过50,000行。任何方式来编写它的代码？基本上，我需要检查从柱A的每个细胞免受山口我每个细胞从A2到A59000

Answer 1

一个想法：使用VBScript解释，以避免行*行环圈，并为您的实验模块：

Attribute VB_Name = "Module1" 
' needs Reference to Microsoft Scripting Runtime (for Dictionary) 

Option Explicit 

Const cnRows = 1000 
Const cnLChar = 80 
Const cnFNum = 1000 
Const cnLNum = 1100 

Function IntRange(iFrom, iTo) 
    IntRange = iFrom + Fix((iTo - iFrom) * Rnd()) 
End Function 

Sub fill() 
    Dim sngStart As Single 
    sngStart = Timer 
    Dim sheetTest As Worksheet 
    Set sheetTest = Sheet2 
    Dim nRow, nCol 
    For nRow = 1 To cnRows 
     For nCol = 1 To 2 
      sheetTest.Cells(nRow, nCol) = Chr(IntRange(65, cnLChar)) & IntRange(cnFNum, cnLNum) 
     Next 
    Next 
    With sheetTest.Cells.Interior 
     .ColorIndex = 0 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
    End With 
    sheetTest.Cells(nRow, 1) = Timer - sngStart 
End Sub 

Sub bruteForce() 
    Dim sngStart As Single 
    sngStart = Timer 
    Dim sheetTest As Worksheet 
    Set sheetTest = Sheet2 
    Dim nRow1 As Integer 
    Dim nRow2 As Integer 
    For nRow1 = 1 To cnRows 
     For nRow2 = 1 To cnRows 
      If sheetTest.Cells(nRow1, 1) = sheetTest.Cells(nRow2, 2) Then 
       With sheetTest.Cells(nRow1, 1).Interior 
        .ColorIndex = 8 
        .Pattern = xlSolid 
        .PatternColorIndex = xlAutomatic 
       End With 
      End If 
     Next 
    Next 
    sheetTest.Cells(nRow1, 1) = Timer - sngStart 
End Sub 

Sub useDict() 
    Dim sngStart As Single 
    sngStart = Timer 
    Dim sheetTest As Worksheet 
    Set sheetTest = Sheet2 
    Dim dicElms As New Scripting.Dictionary 
    Dim nRow As Integer 
    For nRow = 1 To cnRows 
     dicElms(sheetTest.Cells(nRow, 1).Text) = 0 
    Next 
    For nRow = 1 To cnRows 
     If dicElms.Exists(sheetTest.Cells(nRow, 2).Text) Then 
      With sheetTest.Cells(nRow, 2).Interior 
       .ColorIndex = 8 
       .Pattern = xlSolid 
       .PatternColorIndex = xlAutomatic 
      End With 
     End If 
    Next 
    sheetTest.Cells(nRow, 2) = Timer - sngStart 
End Sub