Sub Rotate_90_Degrees_Counterclockwise()
'逆时针旋转90度
’ 宏5 宏
Dim ARR()
ARR = Application.WorksheetFunction.Transpose(Worksheets(“WrongMAP源文件”).UsedRange)
'ARR = Application.WorksheetFunction.Transpose(ARR)
Sheets.Add After:=ActiveSheet
For i = LBound(ARR) To UBound(ARR)
For j = LBound(ARR, 2) To UBound(ARR, 2)
Cells(i, UBound(ARR, 2) - j + 1) = ARR(i, j)
Next
Next
End Sub
本文介绍了一个使用VBA宏实现Excel表格逆时针旋转90度的方法。通过定义宏并利用VBA代码进行操作,可以轻松实现对Excel工作表中数据的旋转处理。
1565

被折叠的 条评论
为什么被折叠?



