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