记录成长
分享快乐

Excel~代码实现数据行上下移动

日常办公在使用 Excel 处理数据明细的时候常常需要上下调整各个数据行的顺序,一般的处理方式是直接剪切粘贴数据行来实现操作,数据量小,操作不太频繁的时候还可以,当数据量比较大,需要多次上下调整顺序的时候就有些麻烦了,以下代码可实现自动选取包含数据项目的数据区域并上下调整。

Option Explicit

Public numBeginRows, numBeginColumns, numEndRows, numEndColumns As Integer

Function UsedRangeParameter()
    
    numBeginRows = ActiveSheet.UsedRange.Cells(1, 1).Row          '获取当前已用表格区域的初始行位置
    numBeginColumns = ActiveSheet.UsedRange.Cells(1, 1).Column          '获取当前已用表格区域的初始列位置
    numEndRows = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1          '获取当前已用表格区域的末尾行位置
    numEndColumns = ActiveSheet.UsedRange.Columns.Count + ActiveSheet.UsedRange.Column - 1          '获取当前已用表格区域的末尾列位置

End Function

'向上移动
Sub qggUpTableRows()

    On Error Resume Next
    
    Dim i, j, numselectedRows As Integer
        
    i = Selection.Row          '获取当前选中单元格的行位置
    j = Selection.Column          '获取当前选中单元格的列位置
    numselectedRows = Selection.Rows.Count          '获取当前选中的行数
    
    Call UsedRangeParameter
       
    If i < numBeginRows Or i > numEndRows Or j < numBeginColumns Or j > numEndColumns Then
        MsgBox "请选择数据区域!!!"
        Exit Sub          '目标区域不在已用表格区域内时跳出过程
    End If
       
    '选中的单元格区域向上移动
    Range(Cells(i, numBeginColumns), Cells((numselectedRows - 1) + i, numEndColumns)).Select
    Selection.Cut
    Selection.Offset(-1, 0).Insert
    Selection.Offset(-1, 0).Select
    
End Sub

'向下移动
Sub qggDownTableRows()

    On Error Resume Next
    
    Dim i, j, numselectedRows As Integer
    
    i = Selection.Row          '获取当前选中单元格的行位置
    j = Selection.Column          '获取当前选中单元格的列位置
    numselectedRows = Selection.Rows.Count          '获取当前选中的行数
    
    Call UsedRangeParameter
    
    If i < numBeginRows Or i > numEndRows Or j < numBeginColumns Or j > numEndColumns Then
        MsgBox "请选择数据区域!!!"
        Exit Sub          '目标区域不在已用表格区域内时跳出过程
    End If
    '选中的单元格区域向下移动
    Range(Cells(i, numBeginColumns), Cells(i + (numselectedRows - 1), numEndColumns)).Select
    Selection.Cut
    Selection.Offset(numselectedRows + 1, 0).Insert
    Selection.Offset(1, 0).Select
    
End Sub

在打开的 Excel 文件中,进入 VBE 编辑器,新建标准模块,将以上代码直接复制粘贴即可。

赞(0) 我要打赏
蝈蝈提醒:转载请注明出处哦>>>蝈蝈要安静 » Excel~代码实现数据行上下移动
分享到: 更多 (0)

评论 1

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  1. #1

    这个文章必须顶。。

    免费SSR节点   | Windows NT | Firefox 47.0 | 1周前 (02-11)回复

博客文章有用,赏博主一包辣条~~~

支付宝扫一扫打赏

微信扫一扫打赏