Excel复制，粘贴，转置下面循环直到

我是VBA的初学者，无法find或拼凑代码来做我想做的事情。 这似乎应该是简单的，我现在对VBA很不熟悉，现在我有麻烦了。

这是我正在尝试做循环，直到行1是空的

这是我到目前为止的一个形象

我知道我可以删除“False，Transpose：= True”之后的行

我不知道如何添加循环或做，直到行1是空的，并不断移动转置粘贴的行。

提前致谢！

Answer 1

此代码：

变成这样：

进入这个：

Answer 2

那么其实你有两个解决scheme：

  Range("A1:C5").Select Selection.Copy Range("A12").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True 

或者你可以通过做更灵活

 Sub transposeTable() Dim intLine, intCol, intLine2, intCol2 as Integer intLine = Sheets(SHEET_PAGE).range(strRange).Row 'Ex : Sheets("Sheet1").range("firstTable") intCol = Sheets(SHEET_PAGE).range(strRange).Column intLine2 = Sheets(SHEET_PAGE).range(strRange2).Row intCol2 = Sheets(SHEET_PAGE).range(strRange2).Column While Sheets(SHEET_PAGE).Cells(intLine, intCol) <> "" ' Transpose code here, where the value at a(i,j) goes to a(j,i) intLine = intLine + 1 Wend End Sub