|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub text()
- Application.ScreenUpdating = False
- arr = [a1].CurrentRegion
- With Sheets("êy¾Y¿a")
- For j = 2 To UBound(arr)
- If Len(arr(j, 1)) > 0 Then
- Set Rng = .Columns(2).Find(arr(j, 1), lookat:=xlWhole)
- If Not Rng Is Nothing Then
- For i = Rng.Row To .Cells(Rows.Count, 2).End(3).Row
- If arr(j, 2) & arr(j, 3) = .Cells(i, 3) & .Cells(i, 4) Then
- Rng.EntireRow.Delete
- Exit For
- End If
- Next i
- End If
- End If
- Next j
- End With
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|