此vba代码是什么意思？

Question

我正在尝试复制我的一位前同事在excel电子表格中编写的一些代码，但是我对VBA还是有点陌生​​，所以很难解析它。 这是我很困惑的部分代码。

私人Sub cbWriteIES_Click（）

 Dim Hangle, Vangle As Double Dim header(1 To 15) As String 'ASSIGN HEADER TO VARIABLE For i = 1 To 15 header(i) = Sheet1.[header].Cells(i, 1) & Sheet1.[header].Cells(i, 2) Next i 

有人可以向我解释一下for循环中发生了什么吗？ 它在原始工作簿中可以正常运行，但是当我将其复制并粘贴到工作簿中时，它将引发424对象必需的错误。 在我看来，他将一个与Sheet1关联的对象称为[header]，但我似乎找不到他在哪里进行的操作。 任何对此的见解将不胜感激。 谢谢！

Answer 1

“页眉”是sheet1上的命名范围。 如果您使用的是Excel 2010，则可以转到“公式”选项卡，然后单击“名称管理器”以查看命名范围。

for循环将sheet1上名为“ header”的范围的第二列中的数组“ header”设置为前15行。

由于您将其复制到的工作簿中的sheet1上没有名为“ header”的范围，因此出现424 Object Required错误。