'类别=个人常用 '说明=选中部分排序上下颠倒 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