Excel宏 - 更改工作表和填充到結束 - 編譯錯誤

Question

我正在創建一個宏，以便在大約25張工作表上連續運行，我在這裏命名特定列中的單元格。我有填充代碼結束以及更改工作表。但是，當我結合代碼，我得到一個警告：

​​

當我刪除了DIM定義，這將在連續的片運行，但只到第一片的結尾。我的目標是讓每個工作表動態填充到N列，併爲每個列設置一個名稱。

這裏是代碼我工作

Sub Mailbox_Name() 
' 
' Mailbox_Name Macro 
' Adds Mailbox Name to Each Sheet 

' 
    Dim LR As Long 
    LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
    Range("N1").Select 
    ActiveCell.FormulaR1C1 = "Mailbox" 
    Range("N2").Select 
    ActiveCell.FormulaR1C1 = "ACC" 
    Range("N2").Select 
    Selection.AutoFill Destination:=Range("N2:N" & LR) 
    Range("N2:N" & LR).Select 

    Selection.Copy 
    Sheets("ACPR").Select 
    Dim LR As Long 
    LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
    Range("N1").Select 
    ActiveCell.FormulaR1C1 = "Mailbox" 
    Range("N2").Select 
    ActiveCell.FormulaR1C1 = "ACPR" 
    Range("N2").Select 
    Selection.AutoFill Destination:=Range("N2:N" & LR) 
    Range("N2:N" & LR).Select 
End Sub 

感謝您的幫助，您可以提供！

Answer 1

只要閱讀錯誤告訴你什麼 - 你有一個重複的聲明。果然，在你的代碼中你有兩次Dim LR As Long。