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。