数组未填充第一个标题

Question

下面的代码，添加一系列列标题，不会将第一个标题“帐户ID”添加到第一列。而是，单元格A1填充“#Pmts”。我找不到为什么会这样。我目前的解决方法是添加第二个“帐户ID”。

Sub Create_Transaction_Notes()

Dim DSA As Worksheet
Set DSA = Worksheets("DEBT_SALE_ACTIVITY")
Dim LF As Worksheet
Set LF = Worksheets("LOAD_FILE")
Dim myArray As Variant
Dim myCount As Integer

'Add in the column titles
DSA.Activate
myArray = Array("Account ID", "# Pmts.", "Total value Pmts.", _
    "Avg. Pmt. value", "# Purchases", "Total purch. value", _
    "Avg. purch. value", "# Cash adv.", "Total cash adv. value")

With DSA
    For myCount = 1 To UBound(myArray)
        .Cells(1, myCount).Value = myArray(myCount)
        Next myCount
    End With

Answer 1

不需要循环：

[DEBT_SALE_ACTIVITY!A1:I1] = Array("Account ID", "# Pmts.", "Total value Pmts.", _
                              "Avg. Pmt. value", "# Purchases", "Total purch. value", _
                            "Avg. purch. value", "# Cash adv.", "Total cash adv. value")

Answer 2

VBA中的数组默认以0开头。将您的for语句更改为

For myCount = 0 To UBound(myArray)