Excel 宏 "Run-time error ' 1004"

Question

我是脚本新手，我正在尝试改进现有的宏。
我录制了一个宏以删除重复项并将其添加到调用其他一些函数的 Main 函数中，但是当我添加录制的宏时出现此错误:
运行时错误“1004”:
应用程序定义或对象定义的错误。

代码看起来像

Sub Main()
Call DuplicateRemove
Call DeleteBlankRows
Call TrimText
End 

Sub DeleteBlankRows()
.
.
End Sub

Sub TrimText()
.
.
End Sub

Sub DuplicateRemove()
Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$95678").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

谢谢，
基兰

Answer 1

您的代码没有任何问题。如果 Active，您只会收到此错误。工作表受密码保护。

避免使用 .Select 也是一个更好的选择。和 ActiveSheet .你的代码可以写成

Sub DuplicateRemove()
    Dim ws As Worksheet

    Set ws = Sheets("Sheet1")

    With ws
        If .ProtectContents = True Then
            MsgBox "Worksheet is protected"
            .Unprotect "MYPASSWORD"
            .Range("$A$1:$A$95678").RemoveDuplicates Columns:=1, Header:=xlNo
            .Protect "MYPASSWORD"
        Else
            .Range("$A$1:$A$95678").RemoveDuplicates Columns:=1, Header:=xlNo
        End If
    End With
End Sub

跟进

Sub DuplicateTest()
    ActiveSheet.Columns(1).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub