粘贴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

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

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

Sub test()
  Dim str() As String

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

End Sub