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

Question

我有以下代码将单元格中的字符串拆分为＆＃34; |＆＃34;并进一步将字符串（0）拆分为＆＃34; ＆＃34 ;.我的问题是最后一行代码。我想使用单元格位置定义范围，但它会导致错误。为什么会这样？

 what = Split(Cells(r, 3).Value, "|")
 titletxt = what(0)

 x = Split(titletxt, " ")

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

从此

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

我想更改为以下 - ＆gt;但是有错误。

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

以上工作吗？