Excel VBA: 删除H列中与L列相同字符的行

本代码示例用于检查H列数据，找到与L列相同字符的行，并将其删除。

Sub DeleteRows()

    Dim LastRow As Long
    Dim i As Long

    LastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row ' 获取最后一行

    For i = LastRow To 1 Step -1 ' 从最后一行开始循环，逆序遍历

        If ActiveSheet.Cells(i, "H").Value = ActiveSheet.Cells(i, "L").Value Then ' 如果H列和L列的值相同

            ActiveSheet.Cells(i, "H").EntireRow.Delete ' 删除整行

        End If

    Next i

End Sub

使用方法：

打开您的 Excel 工作簿，并选择包含您要处理数据的 Sheet。
按 Alt + F11 键打开 VBA 编辑器。
在 VBA 编辑器中，选择 插入 > 模块。
将上面的代码复制并粘贴到模块中。
点击 运行 > 运行子程序/用户窗体 或按下 F5 键运行代码。

注意事项：

此代码仅适用于当前活动的工作表。
代码会删除所有 H 列和 L 列值相同的行，请确保您已经备份了数据。
如果您需要在多个工作表中运行此代码，请将其包装在一个循环中，并在每次迭代中选择不同的工作表。