本帖最后由 wbzxz 于 2011-8-13 09:22 编辑
我看了你复制的代码,没有找到问题所在,不知道你是否修改过宏代码,也不太清楚当时录制代码是的具体环境,分析不出来。不过这种问题,应该这样就可以解决。
把这个代码放入sheet1表中
Sub quchongfu()
Dim i As Long
Dim endRow
endRow = Range("A" & Rows.Count).End(xlUp).Row
For i = endRow To 2 Step -1
If Cells(i, 2) = Cells(i, 3) Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
详见附件:
工作簿2.zip
(7.23 KB, 下载次数: 4)