二位数组旋转指定角度

最新推荐文章于 2025-09-11 12:50:54 发布

原创最新推荐文章于 2025-09-11 12:50:54 发布 · 329 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#算法

VBA 专栏收录该内容

2 篇文章

订阅专栏

二维数组旋转
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").UsedRange
arr = WorksheetFunction.Transpose(Rng)
arr = WorksheetFunction.Transpose(arr)
If UBound(arr) > UBound(arr, 2) Then
    maxInt = UBound(arr)
Else
     maxInt = UBound(arr, 2)
End If
 ReDim temArr(1 To maxInt + 1, 1 To maxInt + 1)


For i = LBound(arr) To UBound(arr)
    For j = LBound(arr, 2) To UBound(arr, 2)
    CountNum = CountNum + 1
    
   '-90
   ' temArr(Abs(UBound(arr, 1) - UBound(arr, 2) - j), i) = arr(i, j)
'-180
' temArr(Abs(UBound(arr, 1) - i + 1), UBound(arr, 2) - j + 1) = arr(i, j)
 '-270
 temArr(j, Abs(UBound(arr, 1) - i) + 1) = arr(i, j)
   
    
   
Next
Next
Worksheets("Sheet2").Range("a1").Resize(UBound(temArr), UBound(temArr, 2)) = temArr
End Sub