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

[qq_28936957]

是一个调用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

[米老鼠yeah]

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

[米老鼠yeah]

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

Cells(ActiveSheet.Cells(1048576, i).End(xlUp).Row, i)

[米老鼠yeah]

大哥，没错呀，是不是你没有给工作表里放数据啊