写一个excel的vba逻辑是检查H列的数据找到和L相同的字符并删除

以下是一个示例VBA代码，可以实现您的要求：

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的VBA编辑器中，然后运行它来检查和删除行。请注意，此代码仅适用于当前活动的工作表。如果您需要在多个工作表中运行此代码，请将其包装在一个循环中，并在每次迭代中选择不同的工作表。