使用0填充多维数组

Question

我正在尝试使用0填充数组的一部分，并想知道是否有更好的方法来循环它。

我知道我可以使用Dim tempArr as double来执行此操作，但数组中的第一列包含字符串。

我正在使用

Dim tempArr as Variant

ReDim tempArr(1 To 6, 1 To 1 + (EndWeek - (BeginWeek - 1)))
tempArr(1, 1) = "Monday - Friday"
tempArr(2, 1) = "Saturday"
tempArr(3, 1) = "Sunday"
tempArr(4, 1) = "Bank Holiday"
tempArr(5, 1) = "Annual Leave"
tempArr(6, 1) = "Apprentice"
For i = 1 To 6
    For j = 2 To UBound(tempArr, 2)
        tempArr(i, j) = CDbl(0)
    Next j
Next i

但肯定有更好的方法吗？