&引用;轮换;excel中的数据中心

&引用;轮换;excel中的数据中心,excel,Excel,有人能帮我“旋转”我的24 x 16桌子吗 我基本上希望右上角的位置A1变成Q24,将所有数据旋转180度,使用中心作为轴心(见附件)。我不太擅长excel 到 您可以在VBA中执行此操作。将下面的代码复制并粘贴到常规VBA代码模块中。如果选择要翻转的区域并运行“Tester”宏,它将旋转值 用法: Sub Tester() 'FlipRange ActiveSheet.Range("A1:J10") 'work on pre-defined range FlipRange S

有人能帮我“旋转”我的24 x 16桌子吗

我基本上希望右上角的位置A1变成Q24,将所有数据旋转180度,使用中心作为轴心(见附件)。我不太擅长excel


您可以在VBA中执行此操作。将下面的代码复制并粘贴到常规VBA代码模块中。如果选择要翻转的区域并运行“Tester”宏,它将旋转值

用法:

Sub Tester()
    'FlipRange ActiveSheet.Range("A1:J10") 'work on pre-defined range
    FlipRange Selection 'work on selected range
End Sub
分:


您是否只需要旋转值,或者是否有任何公式/格式需要移动?在这种情况下,我发布的代码应该可以工作。这是一个经过深思熟虑的答案,我可以看到它可以工作,但您可以在mac excel上使用VBA吗?顺便说一句,mac(excel 2008)上曾经没有VBA,但现在又回到了excel 2011中。
Sub FlipRange(rng As Range)
Dim a, b(), r As Long, c As Long
Dim nR As Long, nC As Long

    a = rng.Value
    nR = UBound(a, 1)
    nC = UBound(a, 2)
    ReDim b(1 To nR, 1 To nC)

    For r = 1 To UBound(a, 1)
        For c = 1 To nC
            b((nR - r) + 1, (nC - c) + 1) = a(r, c)
        Next c
    Next r
    rng.Value = b
End Sub