VBA
samayinlike
这个作者很懒,什么都没留下…
展开
-
二位数组旋转指定角度
二维数组旋转 z Sub 宏1() '逆时针旋转90度 ' 宏1 宏 Dim CountNum As Integer Dim Rng As Range Dim arr(), temArr() Dim rowStar As Integer, rowEnd As Integer Dim maxInt As Integer Dim colStar As Integer, colEnd As Integer Dim temStr As String Set Rng = Worksheets("Sheet1").U原创 2021-11-28 22:56:30 · 257 阅读 · 0 评论 -
如何将EXCEL数据表里面的数据逆时针旋转90度
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原创 2020-12-04 03:45:13 · 2545 阅读 · 0 评论