0

我正在创建一个宏以在大约 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

感谢您的任何帮助，您可以提供！

4

1 回答 1

1

只需阅读错误告诉您的内容 - 您有一个重复的声明。果然，在你的代码中你有Dim LR As Long两次。

于 2013-04-05T14:53:22.447 回答