UC知道在excel的宏里面 “向下移动一行” 如何写
来源：百度知道 编辑：UC知道 时间：2024/06/19 09:17:44
我现在想编写一个宏，让计算机自动复制第三行的值到第四行，当程序执行完一遍就自动复制第三行的数据到第5行，然后第6行，第7行，一直下去。我的宏程序如下：
Sub Macro4()
Windows("book1.xls").Activate
Cells.Select
Selection.Copy
ActiveSheet.Next.Select
Windows("book2.xls").Activate
Cells.Select
ActiveSheet.Paste
ActiveSheet.Next.Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Rows("4:4").Next.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=1
ActiveSheet.Previous.Select
End Sub
问题出在 Rows("4:4").Next.Select
我想知道如何表示相对于第4行的下移一行。这个相对是相对excel的表格里的行。因为我可以设置冻结窗格来达到第4行的下一行是第5行，第6行，第7行。。。。的效果。
可以先判断一下最后一个非空的行数,再复制第三的数据到最后一个非空的行
如
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 宽度，即所要返回的