如何用excel搜索单元格内相同内容并删
先顶一下 回答者:czzzzzm 级别:学长
1 ALT+F8,宏名输入“宏1”-》创建,把代码内容改成下面的代码,关闭
2 ALT+F8-》宏1-》选项,填入快捷键 a
Sub 宏1()
'
' 宏1 Macro
' Billgates 记录的宏 2006-1-5
'
' 快捷键: Ctrl+a
'
For l0 = 2 To 12 '
For l1 = 1 To l0 - 1
Range("A" & l1)。 Select '修改
dl1 = ActiveCell。FormulaR1C1
Range("A" & l0)。Select '修改
dl0 = ActiveCell。 ...全部
先顶一下 回答者:czzzzzm 级别:学长
1 ALT+F8,宏名输入“宏1”-》创建,把代码内容改成下面的代码,关闭
2 ALT+F8-》宏1-》选项,填入快捷键 a
Sub 宏1()
'
' 宏1 Macro
' Billgates 记录的宏 2006-1-5
'
' 快捷键: Ctrl+a
'
For l0 = 2 To 12 '
For l1 = 1 To l0 - 1
Range("A" & l1)。
Select '修改
dl1 = ActiveCell。FormulaR1C1
Range("A" & l0)。Select '修改
dl0 = ActiveCell。
FormulaR1C1
If dl1 = dl0 Then
Range("Z" & l0)。Select '修改成有空列的位置
ActiveCell。
FormulaR1C1 = "重复第" & l1
l1 = l0 - 1
End If
Next l1
Next l0
'加入
End Sub
如果要直接删除,就把下面代码加入上面“'加入”的下一行位置,或另创建一个宏
For l = 2 To 12
Range("Z" & l)。
Select '如果上面的Z修改了,这里的Z要和上面的相同
If ActiveCell。FormulaR1C1 > "" Then
Rows(l & ":" & l)。
Select
Selection。Delete Shift:=xlUp
l = l - 1
End If
Next l。收起