粘貼維數組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