Excel VBA 代码：删除 H 列中与 L 列相同数据的重复内容

以下 VBA 代码可以帮助您在 Excel 文件中检查 H 列的数据，找到单元格中与 L 列数据完全相同的字符并删除内容：

Sub DeleteDuplicate()
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    Dim val As String
    
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        val = Cells(i, "H").Value
        For j = i - 1 To 1 Step -1
            If val = Cells(j, "H").Value And Cells(i, "L").Value = Cells(j, "L").Value Then
                Rows(i).Delete
                Exit For
            End If
        Next j
    Next i
End Sub

代码逻辑：

首先定义变量 lastRow 获取 H 列的最后一行。
使用循环遍历 H 列，从最后一行开始到第二行。
对于每个单元格，将单元格的值存储在变量 val 中。
使用内层循环遍历 H 列，从当前行上一行开始到第一行。
比较当前行和上一行的 H 列值是否相等，以及当前行的 L 列值和上一行的 L 列值是否相等。
如果两个条件都满足，则删除当前行，并退出内层循环。
重复步骤 3-6 直到遍历完所有行。

使用方法：

打开您的 Excel 文件，并按下 Alt+F11 进入 VBA 编辑器。
在 VBA 编辑器中，点击“插入”>“模块”。
将上述代码复制粘贴到模块中。
保存您的 Excel 文件。
返回 Excel 文件，选择包含您要处理数据的区域，然后运行代码。

注意事项：

确保您的 Excel 文件已保存，并且数据已整理好。
运行代码之前，建议备份您的 Excel 文件，以防意外操作。
如果您需要删除其他列的数据，请将代码中的 "H" 和 "L" 替换为相应的列字母。

希望这篇文章能够帮助您解决在 Excel 中删除重复数据的困扰。如果您还有其他问题，请随时提问。