Question

为什么这段代码运行良好：

Sub SelectRange()

Dim sourceBook As Workbook
Dim sourceSheet As Worksheet
Dim sourceSheetSum As Worksheet

Set sourceBook = ActiveWorkbook
Set sourceSheet = sourceBook.Sheets("Tabelle1")

ActiveWorkbook.Names.Add _
    Name:="ggg", _
    RefersTo:="=Sheet1!A4:L37"
sourceSheet.Select
sourceSheet.Range("A4:L37").Select

End Sub

但是，如果我改变

sourceSheet.Range("A4:L37").Select

为：

sourceSheet.Range("ggg").Select

我收到运行时错误1004

Answer 1

尝试下面的代码，它将从“Tabelle1”表格中的单元格“A4：L37”创建“ggg”命名范围。

之后，它为指定的PDO设置另一个范围MyNamedRange - 此步骤不是必需的，我只想处理Range("ggg")的变量。

最后，它选择Range。

<强>代码

MyNamedRange

Answer 2

试试这个：

SourceSheet.Range（Names.Item（ “GGG”））。选择

我的VBA代码有一个命名范围的运行时错误＃1004？

2 个答案: