求助：之前运行没有问题，后来重装系统重装office就报错：应用程序定义或对象定义错误1004

Question

是一个调用Excel删除重复值功能批量删除多列每一列的重复值的VBA代码Sub Macro1()
Dim i, j
For i = 1 To [a1].End(xlToRight).Column
ActiveSheet.Range(Cells(1, i), Cells(Cells(1048576, i).End(xlUp).Row, i)).RemoveDuplicates Columns:=1, Header:=xlNo
Next
End Sub

Answer 1

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

Answer 2

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