粘贴一维数组 VBA - 带转置

Question

我有一些看起来像上面的东西。基本上我需要拆分字符串并将其垂直粘贴到 C 列下方。

Sub test()
  Dim str() As String

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

End Sub

转置无效。有什么建议吗？

Answer 1

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

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

Sub test()
  Dim str() As String

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

End Sub

粘贴一维数组 VBA - 带转置

Pasting 1D array VBA - with transpose

excel

vba

transpose