背景
我已经创建了一个VBA宏来从各个业务部门提取财务数据。
目的
合并每个业务单位的财务信息后,插入一行列标题以准备数据透视表报告。
APPROACH
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)
.Cells(1, 1 + i).Value = headers(i)
问题
Set ws = ThisWorkbook.Sheets("CONSOLIDATED")
答案 0 :(得分:2)
我怀疑工作表可能不在你告诉代码的地方,或者工作表名称实际上是不正确的。 (可能会让 $new_arr = array_merge($new_arr, array_reverse(array_slice($arr, $offset, $step)));
$offset += $step;
与ThisWorkbook
混淆?)
您也可以像这样重写代码:
ActiveWorkbook