你如何計算字符串VBA Excel的列表？

Question

我還不熟悉VBA Excel編碼。請告訴我是否有任何需要改進的地方。

在下面的例子中，我試圖從生成類中獲取偶數值的列表並插入到excel vba表中。但是，我如何計算返回的列表數？

Private Function Generate() 
    Dim red(1 To 20) As String 
    For i = 1 To 20 
     red(i) = i * 2 
    Next i 
    Generate = red() 
End Function 

Sub Format() 
    Dim str() As String 
    str() = Generate 
    Range("A1").Select 
    With Selection 
     For i = 1 To str().Count    'what do I do with this? Obviously str().Count is not working. 
      .Offset(1, i).Value = str(i) 
     Next 
    End With 
End Sub 

謝謝。

Answer 1

設法解決我自己和這裏的答案：

Private Function Generate() 
    Dim red(1 To 20) As String 
    For i = 1 To 20 
     red(i) = i * 2 
    Next i 
    Generate = red() 
End Function 

Sub Format() 
    Dim str() As String 
    str() = Generate 

    Range("A1").Select 
    With Selection 
     For i = LBound(str) To UBound(str) 
      .Offset(i - 1, 0).Value = str(i) 
     Next 
    End With 
End Sub