vba - 如果其他列中的值匹配，则 VBA、循环列和复制单元格格式

Question

我有一张 2 张的 excel 表

我想要的是循环工作表1（A列）的所有行并搜索该值是否存在于工作表2列（e）['item_barcode']如果发现我想将相同的突出显示复制到工作表2！

我不擅长 vba，事实上我以前从未使用过它，但我必须为我的老板做这个，这个 excel 表包含超过 55k 的行！有没有办法用 vba 完成？否则我将不得不将 xls 转换为 mysql 和 php 处理它然后返回 xls .:D！

Answer 1

这应该可以解决问题：

  Sub LoopAndHighlight()

  Dim cl As Range
  Dim RowNum As Integer

  On Error Resume Next

     For Each cl In Intersect(Sheets("Sheet1").Range("A:A"), Sheets("Sheet1").UsedRange)
        RowNum = 0
        RowNum = Application.WorksheetFunction.Match(cl.Value, Sheets("Sheet2").Range("E:E"), 0)

        If RowNum <> 0 Then
           cl.Interior.Color = Sheets("Sheet2").Range("E" & Application.WorksheetFunction.Match(cl.Value, Sheets("Sheet2").Range("E:E"), 0)).Interior.Color
        End If
     Next cl

  End Sub