EXCEL中如何删除重复行?用简单的方
将有修改标志的行中,把A改成相应的列号
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。 Formu...全部
将有修改标志的行中,把A改成相应的列号
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
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
End Sub。
收起