杭州交通信息网intel微架构顺序:谁能帮我设计一个关于EXCEL中填充的程序??
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/26 01:56:45
我是一名办公室的信息员,经常做一些报表(大多是几万行的),常常每隔几行就需要向下填充上一行的内容, 而且内容不同.最重要的是表太大了,一般方法很费时间,并且填充数字时容易出错.
请教大家:有没有: 选中整个表格 让它自动填充 上一行 的命令?
请教大家:有没有: 选中整个表格 让它自动填充 上一行 的命令?
Sub copyrow()
ThisWorkbook.Worksheets("sheet1").Activate
ActiveSheet.Unprotect
x = MsgBox("把当前行拷贝到下一行吗？", vbYesNo)
If x = vbYes Then
Selection.Copy
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
你选定一行后运行上面的宏就可以将这一行复制到下一行,
如果希望更方便,可以把宏设成一个工具按钮
Excel本身就有这个功能。选择要重复填充的部分，把鼠标放在选择边框右下角，当指针变成“＋”时，按下鼠标左键向下拖动，下面的表格就会自动填充成你选择的内容了。