excel表格里面宏的vba代码循环使用,纵表转成横表非常感谢啊
发布网友
发布时间：2022-05-02 12:06
共3个回答
热心网友
时间：2022-04-11 16:57
代码如下：
Sub Macro1()For i = 1 To 3
Range("A" & i * 13 - 12).Resize(12).Copy
Range("F" & i + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=True
Next
End Sub
热心网友
时间：2022-04-11 18:15
试下
Sub 转置()Dim I
For I = 2 To Range("f65536").End(xlUp).Row
X = Range("A65536").End(xlUp).Row
arr = Range("f" & I & ":" & "q" & I)
Cells(X + 2, 1).Resize(12, 1) = Application.Transpose(arr)
Next
End Sub
来自：求助得到的回答
热心网友
时间：2022-04-11 19:50
