粘贴维数组VBA - 用转

Question

我有东西，看起来像上面。基本上我需要拆分字符串并垂直向下粘贴C列。

Sub test() 
    Dim str() As String 

    str = Split(Range("A1").Value, "/") 
    Range("C1").Value = Application.Transpose(str) 

End Sub 

转置不起作用。有什么建议么？

Answer 1

您需要指定输出的单元数。您目前只指定一个单元格。

您可以使用调整大小来动态设置输出范围的大小：

Sub test() 
    Dim str() As String 

    str = Split(Range("A1").Value, "/") 
    Range("C1").Resize(Ubound(str)+1).Value = Application.Transpose(str) 

End Sub