For help: run before there is no problem, then reinstall system reinstall office error: application--CodePudding

Is a calling function of Excel to delete duplicate values batch delete multiple columns of each column duplicates the VBA code

Sub Macro1 ()
Dim I, j
For I=1 To [a1]. End (xlToRight). The Column
ActiveSheet. Range (Cells (1, I), Cells (Cells (1048576 I). The End (xlUp). A Row, I)). RemoveDuplicates Columns:=1, the Header:=xlNo
Next
End Sub

CodePudding user response:

 Sub Macro1 () 
Dim I, j 

For I=1 To [a1]. End (xlToRight). The Column 
ActiveSheet. Range (Cells (1, I), Cells ( ActiveSheet. Cells  (1048576 I). The End (xlUp). A Row, I)). RemoveDuplicates Columns:=1, the Header:=xlNo 
Next 
End Sub

CodePudding user response:

 Sub Macro1 () 
Dim I, j 

For I=1 To [a1]. End (xlToRight). The Column 
ActiveSheet. Range (Cells (1, I), Cells (ActiveSheet. Cells (1048576 I). The End (xlUp). A Row, I)). RemoveDuplicates Columns:=1, the Header:=xlNo 
Next 
End Sub

Cells ( ActiveSheet . The Cells (1048576 I). The End (xlUp). A Row, I)

CodePudding user response:

Eldest brother, yes ah, if you don't have to work inside put data!