在MS XLS中使用VBA在列中转置行

我有一个XLS，我需要A1：H1来说A1：A7。 我可以通过在复制中使用转置function来实现这一点。 不过，我需要做这个VBA脚本的一部分。 我似乎没有find任何等效的function。

Answer 1

同样，基本上。

您可以使用复制：

source_range.Copy dest_range.PasteSpecial Transpose:=true application.cutcopymode = false 

或者你可以避免使用它（如果你只需要原始值）：

 dest_range.value = application.worksheetfunction.transpose(source_range.value)