|
本帖最后由 youxianwei 于 2016-11-5 22:21 编辑
求助,如何将a列中与b列重复的关键词清除?
- Sub tt()
- Dim arr, i%, n%
- arr = Sheet1.UsedRange
- For i = 2 To UBound(arr)
- For n = 2 To UBound(arr)
- If arr(i, 1) <> "" And arr(i, 1) = arr(n, 2) Then
- Sheet1.Cells(i, 1) = [=1/0]
- Exit For
- End If
- Next n, i
- Columns("A:A").SpecialCells(xlCellTypeConstants, 16).Select
- Selection.Delete Shift:=xlUp
- End Sub
复制代码
|
|