excel - 比较 Excel 中的两列 (A & D)。如果匹配，则删除一行，如果不匹配，则用蓝色突出显示

Question

我有四列（A、B、C 和 D）中的数据。D 列中的大多数单元格是空的，但有些是数据。

首先，我想将 D 列的数据与 A 列进行比较。如果数据匹配，则删除与数据相对应的 A 列的整行……如果不匹配，则 D 列的数据应以蓝色突出显示。

Answer 1

创建一个新工作表
复制所有需要的数据，以防万一出现问题。
按Alt+F11进入 Visual Basic 编辑器。
在左侧窗格中单击鼠标右键。
插入一个模块。
双击新模块（通常称为“Module1”）
复制并添加以下代码；

---

Function DeleteDuplicates()

Dim wsSheet As Worksheet

Set wsSheet = ThisWorkbook.Worksheets(1) 'Change this to reflect the correct sheet number

wsSheet.Select

Dim i As Integer

i = 1 'Iterator
Dim Str As String

While (Not wsSheet.Cells(i, 1).Value = "") 'Stop when you run out of column A

    If (wsSheet.Cells(i, 1).Value = wsSheet.Cells(i, 4).Value) Then ' Col A = Col B
        Str = CStr(i) & ":" & CStr(i)
        wsSheet.Range(Str).Delete Shift:=xlUp 'Delete Row:Row
        i = i - 1
    Else 'Blank or Different
        Str = CStr(i) & ":" & CStr(i)
        wsSheet.Cells(i, 4).Interior.ColorIndex = 41 '41 = Mid Blue
        wsSheet.Cells(i, 4).Interior.Pattern = xlSolid
    End If

    i = i + 1 'Increment

Wend


End Function

---

设置电子表格索引号，你会很好，所以按F5。