Question

EXCEL vba删除不同单元重复内容

Sub 删除()End WithWith Sheet4.Range("B10:K29")
(代码)
End WithEnd Sub
1.删除B10:K29区域重复
2.代码可以粘到(代码)里即可用

Answer 1

Sub del()
Dim D
Set D = CreateObject("scripting.dictionary")
Dim rg As Range
For Each rg In sheet4.Range("B10:K29")
 If D.Exists(rg.Value) Then
   rg.Value = ""
 Else
   D(rg.Value) = ""
 End If
Next rg
End Sub

Answer 2

将with 和end with 模块删去，加入：
FOR A=10 TO 29
C=0

FOR B=10 TO 29
IF SHEET4.CELLS(A,2)=SHEET4.CELLS(B,2) THEN
SHEET4.CELLS(B,2)=""
C=1

END IF
NEXT
IF C=1 THEN SHEET4.CELLS(A,2)=""
NEXT