105.反选择单元格中的数

'###############################################################

'函数作用：反选择单元格中的数

'示       例：A1 = 1,B1 = 2,C1 = 3;执行结果:C1 = 1,B1 = 2,A1 = 3

'###############################################################

Function ReverseSelection()

    Application.ScreenUpdating = False

    Application.StatusBar = True

    Application.EnableEvents = False

    Set rngCel = Selection

    Rw = Selection.Rows.Count

    Cl = Selection.Columns.Count

    If Rw > 1 And Cl > 1 Then

        MsgBox "你选择的范围只能是一栏或一列...", 32, "提示"

        GoTo EndMacro

    End If

    If rngCel.Cells.Count = ActiveCell.EntireColumn.Cells.Count Then

        MsgBox "你选择的范围不能是一个整栏...", 32, "提示"

        GoTo EndMacro

    End If

    If Rw > 1 Then

        ReDim Arr(Rw)

    Else

        ReDim Arr(Cl)

    End If

    Rw = 0

    For Each c In rngCel

        Arr(Rw) = c.Formula

        Rw = Rw + 1

    Next c

    Rw = Rw ‐ 1

    For Each c In rngCel

        c.Formula = Arr(Rw)

        Rw = Rw ‐ 1

    Next c

EndMacro:

    Application.ScreenUpdating = True

    Application.StatusBar = False

    Application.EnableEvents = True

End Function