'类别=个人常用
'说明=选中部分排序上下颠倒
Sub upsidedown()

    x = Selection.Row()
    y = Selection.Column()
    row_num = Selection.Rows().Count
    col_num = Selection.Columns().Count
    Dim changetimes As Integer
    changetimes = row_num / 2
    For j = y To y + col_num - 1
        For i = x To x + changetimes - 1
            temp = Cells(i, j)
            Cells(i, j) = Cells(2 * x + row_num - i - 1, j)
            Cells(2 * x + row_num - i - 1, j) = temp
        Next
        temp = ""
    Next

End Sub