vba - "Invalid Qualifier"从字符串数组写入单元格时

Question

我有一个简单的宏来设置一些常见的标题和格式:

Dim colString(1 To 17, 1 To 2) As String
Dim i As Integer

colString(1, 1) = "NA" ' Column header
colString(1, 2) = "23" ' Column background color index
colString(2, 1) = "NB"
colString(2, 2) = "1"

' etc, until (17, 2)

For i = 1 To 17
    With Cells(1, i)
        .Value = colString(i, 1).Value
        .Interior.ColorIndex = CInt(colString(i, 2))
        .Font.Color = vbWhite
        '.Font.Bold
    End With
Next i

我在这一行得到一个错误:

 .Value = colString(i, 1).Value

错误显示为“无效的限定符”，突出显示了“colString”。

我不明白为什么我会收到此错误，或者如何更改它。由于我在单行上进行迭代，使用 Cells 似乎是最简单的路线？ Google、MrExcel 和 SO 什么都没有出现。

Answer 1

您的数组类型为字符串，而不是任何类型的对象，因此它的项目没有属性或方法。因此，您需要删除 .Value (并像在下一行中那样使用它):

With Cells(1, i)
    .Value = colString(i, 1)
    .Interior.ColorIndex = CInt(colString(i, 2))
    .Font.Color = vbWhite
    '.Font.Bold
End With