将文本数组插入标题（VBA，EXCEL）

Question

背景

我已经创建了一个VBA宏来从各个业务部门提取财务数据。

目的

合并每个业务单位的财务信息后，插入一行列标题以准备数据透视表报告。

APPROACH

1. 定义工作表
2. 定义＆＃34;标题＆＃34;阵列
3. 在Excel工作表顶部插入1行，将所有其他行向下移动1
4. 将标题数组文本值插入列

CODE BASE

Sub addHeaders()

Dim ws As Worksheet
Dim headers() As Variant

'Define worksheet and desired headers
Set ws = ThisWorkbook.Sheets("CONSOLIDATED")
headers() = Array("Fiscal Year", "Month", "Month_Year", "Project", "Local Expense", "Base Expense")


'Insert row for header placement
Rows(1).Insert shift:=xlShiftDown


'Insert headers
With ws
For i = LBound(headers()) To UBound(headers())
    .Cells(1, 1 + i).Value = headers(i)
    Next i
End With


End Sub

ISSUE（S）

1. ＆＃34;对象变量或With块变量未设置＆＃34; @ line .Cells(1, 1 + i).Value = headers(i)

问题

• 当我明确定义Set ws = ThisWorkbook.Sheets("CONSOLIDATED")
时，为什么VBA说变量（假设＆＃34; ws＆＃34;）未设置？

Answer 1

我怀疑工作表可能不在你告诉代码的地方，或者工作表名称实际上是不正确的。 （可能会让 $new_arr = array_merge($new_arr, array_reverse(array_slice($arr, $offset, $step))); $offset += $step; 与ThisWorkbook混淆？）

您也可以像这样重写代码：

ActiveWorkbook