`
资源图片
上下倒序
作者: zw890728 - 2017/11/2 12:11:18 - 重新编辑
类型: 程序插件
关键词: 上下,倒序,排序,颠倒,反向
免费下载
下载   【下载次数:55】
若您下载的文件类型是VBA函数,请配合收纳箱使用
  • 详细说明:

  • excel内,选区上下倒序排列
    GIF动画:
    Gif动画
  • '类别=个人常用
    '说明=选中部分排序上下颠倒
    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