如何将转置范围声明为另一个工作表中的单元格

Question

我用下面的代码将单元格中的字符串分割为"|"，并进一步将字符串(0)分割为" "。我的问题是关于最后一行代码。我想用单元格位置来定义范围，但这会导致错误。为什么会这样呢?

 what = Split(Cells(r, 3).Value, "|")
 titletxt = what(0)
 x = Split(titletxt, " ")
 Worksheets("Sheet2").Range("B2:B5").Value = Application.Transpose(x)

From this

 Worksheets("Sheet2").Range("B2:B5").Value = Application.Transpose(x)

我想更改为以下-->，但有错误。

Worksheets("Sheet2").Range(Cells(2,2), Cells(5, 2)) = Application.Transpose(x)

Answer 1

不适合注释，但试试这个:

With Worksheets("Sheet2")
    .Range(.Cells(2, 2), .Cells(5, 2)) = Application.Transpose(x)
End With

以上是否有效?