在excel的宏里面 “向下移动一行” 如何写 EXCEL，点中某单元格，VBA将这一行的整行数据上下移
作者&投稿：龙典 （若有异议请与网页底部的电邮联系）
可以先判断一下最后一个非空的行数,再复制第三的数据到最后一个非空的行
如
a = [a65536].end(xlup).row
Rows(3).Copy cells(a + 1,1)
你试试看
Sub xx()
For i = 4 To 10 '设复制到第10行。
Rows(3).Copy
Rows(i).Select
ActiveSheet.Paste
Next
End Sub
把Rows("4:4").Next.Select修改为：
Range(Chr(64 + ActiveCell.Column) & ActiveCell.Row + 1).Select即可。
用offset函数
OFFSET
以指定的引用为参照系，通过给定偏移量得到新的引用。返回的引用可以为一个单元格或单元格区域。并可以指定返回的行数或列数。
语法
OFFSET(reference,rows,cols,height,width)
Reference 作为偏移量参照系的引用区域。Reference 必须为对单元格或相连单元格区域的引用；否则，函数 OFFSET 返回错误值 #VALUE!。
Rows 相对于偏移量参照系的左上角单元格，上（下）偏移的行数。如果使用 5 作为参数 Rows，则说明目标引用区域的左上角单元格比 reference 低 5 行。行数可为正数（代表在起始引用的下方）或负数（代表在起始引用的上方）。
Cols 相对于偏移量参照系的左上角单元格，左（右）偏移的列数。如果使用 5 作为参数 Cols，则说明目标引用区域的左上角的单元格比 reference 靠右 5 列。列数可为正数（代表在起始引用的右边）或负数（代表在起始引用的左边）。
Height 高度，即所要返回的引用区域的行数。Height 必须为正数。
Width 宽度，即所要返回的引用区域的列数。Width 必须为正数。
说明
如果行数和列数偏移量超出工作表边缘，函数 OFFSET 返回错误值 #REF!。
如果省略 height 或 width，则假设其高度或宽度与 reference 相同。
函数 OFFSET 实际上并不移动任何单元格或更改选定区域，它只是返回一个引用。函数 OFFSET 可用于任何需要将引用作为参数的函数。例如，公式 SUM(OFFSET(C2,1,2,3,1)) 将计算比单元格 C2 靠下 1 行并靠右 2 列的 3 行 1 列的区域的总值。
示例
如果您将示例复制到空白工作表中，可能会更易于理解该示例。
公式 说明（结果）
=OFFSET(C3,2,3,1,1) 显示单元格 F5 中的值 (0)
=SUM(OFFSET(C3:E5,-1,0,3,3)) 对数据区域 C2:E4 求和 (0)
=OFFSET(C3:E5,0,-3,3,3) 返回错误值 #REF!，因为引用区域不在工作表中
excel录制宏如何包含”向下移动光标至下一单元格的操作“？~
如
a = [a65536].end(xlup).row
Rows(3).Copy cells(a + 1,1)
你试试看
Sub xx()
For i = 4 To 10 '设复制到第10行。
Rows(3).Copy
Rows(i).Select
ActiveSheet.Paste
Next
End Sub
把Rows("4:4").Next.Select修改为：
Range(Chr(64 + ActiveCell.Column) & ActiveCell.Row + 1).Select即可。
用offset函数
OFFSET
以指定的引用为参照系，通过给定偏移量得到新的引用。返回的引用可以为一个单元格或单元格区域。并可以指定返回的行数或列数。
语法
OFFSET(reference,rows,cols,height,width)
Reference 作为偏移量参照系的引用区域。Reference 必须为对单元格或相连单元格区域的引用；否则，函数 OFFSET 返回错误值 #VALUE!。
Rows 相对于偏移量参照系的左上角单元格，上（下）偏移的行数。如果使用 5 作为参数 Rows，则说明目标引用区域的左上角单元格比 reference 低 5 行。行数可为正数（代表在起始引用的下方）或负数（代表在起始引用的上方）。
Cols 相对于偏移量参照系的左上角单元格，左（右）偏移的列数。如果使用 5 作为参数 Cols，则说明目标引用区域的左上角的单元格比 reference 靠右 5 列。列数可为正数（代表在起始引用的右边）或负数（代表在起始引用的左边）。
Height 高度，即所要返回的引用区域的行数。Height 必须为正数。
Width 宽度，即所要返回的引用区域的列数。Width 必须为正数。
说明
如果行数和列数偏移量超出工作表边缘，函数 OFFSET 返回错误值 #REF!。
如果省略 height 或 width，则假设其高度或宽度与 reference 相同。
函数 OFFSET 实际上并不移动任何单元格或更改选定区域，它只是返回一个引用。函数 OFFSET 可用于任何需要将引用作为参数的函数。例如，公式 SUM(OFFSET(C2,1,2,3,1)) 将计算比单元格 C2 靠下 1 行并靠右 2 列的 3 行 1 列的区域的总值。
示例
如果您将示例复制到空白工作表中，可能会更易于理解该示例。
公式 说明（结果）
=OFFSET(C3,2,3,1,1) 显示单元格 F5 中的值 (0)
=SUM(OFFSET(C3:E5,-1,0,3,3)) 对数据区域 C2:E4 求和 (0)
=OFFSET(C3:E5,0,-3,3,3) 返回错误值 #REF!，因为引用区域不在工作表中
excel录制宏如何包含”向下移动光标至下一单元格的操作“？~
在最后添加一行
输入文字的单元格地址.Offset(1,0).Select
Sub 上移()
Application.ScreenUpdating = False
Dim ll As Long '定义ll为长整数型变量
ll = ActiveCell.Row '活动单元格所在行
Rows(ll).Cut
Rows(ll - 1).Select
ActiveSheet.Paste
End Sub
Sub 下移()
Application.ScreenUpdating = False
Dim ll As Long '定义ll为长整数型变量
ll = ActiveCell.Row '活动单元格所在行
Rows(ll).Cut
Rows(ll + 1).Select
ActiveSheet.Paste
End Sub
谢谢
