1Dアレイの貼り付けVBA - 転置付き

Question

私は上記のようなものを持っています。基本的には、文字列を分割し、それを垂直に列Cに貼り付ける必要があります。

Sub test() 
    Dim str() As String 

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

End Sub 

転置が機能していません。助言がありますか？

Answer 1

出力するセルの数を指定する必要があります。現在、1つのセルしか指定していません。

Sub test() 
    Dim str() As String 

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

End Sub 

：

あなたは動的出力範囲のサイズを設定するためにサイズ変更を使用することができます