你如何计算字符串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