|
发表于 2021-4-16 07:22
|
显示全部楼层
本楼为最佳答案
- Private Sub AB13()
- Application.ScreenUpdating = False
- Dim xrr, i%, x%, y%, Dic, s$, dres()
- xrr = Sheets("Sheet1").UsedRange
- Set Dic = CreateObject("Scripting.Dictionary")
- For i = 10 To UBound(xrr, 2)
- If xrr(1, i) <> "" Then
- Dic(xrr(1, i)) = ""
- End If
- Next
- dres = Dic.keys
- Sheets("Sheet1").Select
- For i = 0 To Dic.Count - 1
- s = dres(i)
- For x = 1 To UBound(xrr)
- For y = 2 To 8
- If xrr(x, y) = s Then
- Cells(x, y).Interior.ColorIndex = 6
- End If
- Next
- Next
- Next
- line1:
- For x = 1 To UBound(xrr)
- For y = 2 To 8
- If Cells(x, y).Interior.ColorIndex = 6 Then
- Cells(x, y).Select
- Selection.Delete Shift:=xlToLeft
- GoTo line1:
- End If
- Next
- Next
-
- Erase xrr
- Set Dic = Nothing
- Application.ScreenUpdating = True
- End Sub
复制代码
|
评分
-
查看全部评分
|