Question

EXCEL如何用宏自动复制粘贴到下方空白行？有图

谢谢两位朋友的帮助，如果能填加EXCEL附件就好啦，对VBA真是一窍不通，该往哪里粘贴都不清楚：（

Answer 1

在保存数据按钮的Click事件中写下如下代码：

dim row2paste as integer
dim dest as string
row2paste=8  '默认从第8行开始粘贴
while cells(row2paste,2).value<>""
  row2paste=row2paste+1
wend
'上面的WHILE循环是查找空行（以粘贴数据），下面开始复制粘贴
dest="B"+cstr(row2paste)+":Z"+cstr(row2paste)
Range("B3:Z3").Copy Destination:=Range(dest)

追问

感谢您！ 只是不知道按钮的CLICK事件怎么使用，该怎样粘贴？

追答

你需要先进入设计模式，你的EXCEL是什么版本的？如果是2003版，请在工具栏右击，勾选"Visual Basic“，在新出现的工具栏中有一个按钮可以切换”设计模式“，进行设计模式后，你点那个按钮会在按钮周围出现一些定位符（可以拉动调整按钮大小等），这时候双击按钮就能编写它的CLICK事件代码了。
如果是2007及以上版本，需要在EXCEL选项-->常用中勾选“在功能区显示”开发工具“选项卡，然后在开发工具选项卡里能找到设计模式，进入设计模式后操作与2003版本相同。

追问

感谢！ 您说的我看明白了，我的是2003版的，不过我之前使用了宏录制，也在网上查了不少相关的VBA，里面有一些数据，可能因为这个原因，我双击按钮后提示的是“未找到宏”， 不知道可不可以帮我看看EXCEL文件，帮我指导指导？

追答

行啊，你把EXCEL文件传过来我帮你改吧。我本来做了一个GIF图片关于如何操作的，不过不知道为什么一直发不上来。

追问

我怎么找不到您的邮箱地址呢？ 您告诉我吧，我把表格发给您，还请您帮个忙啊，操作动画要是能一起发给我，那对我的帮助就太大啦，我非常想学习！

追答

我邮箱是swordwindplaust@126.com，QQ是241663504，加的时候备注写百度知道

Answer 2

请按照以下流程操作：
1，选择C列
2，ctrl g ，选择定位条件，选择“空值”，点确定
3，直接按 =，向上键，按住ctrl敲回车
4，ok

Answer 3

请按照以下流程操作：
1，选择C列
2，ctrl g ，选择定位条件，选择“空值”，点确定
3，直接按 =，向上键，按住ctrl敲回车
4，ok

Answer 4

    Dim i As Integer
    i = 8
    
    Do While Range("B" & i).Text <> ""
        i = i + 1
    Loop
    '从第8行开始查找已出票区空白行
    
    
    Range("B3:Z3").Copy
    
    Range("B" & i).Select
    ActiveSheet.Paste
    
    Range("B3:Z3").ClearContents '清除“待出票”区内容
    Range("B3").Select '光标定位回B3

以上代码Excel2003测试通过，,有疑问继续为您解答。

追问

谢谢您的回复， 我对VBA的操作不掌握，现在如何把按钮与命令联合起来，您发来的代码是在SHEET下点右键查看代码中修改吗？

追答

在设计模式下，双击你工作表中的按钮，将代码复制粘贴进按钮代码区域即可。

代码粘贴在两行现有代码中间。

表格我已做完了，你直接下载可以用了。

Answer 5

Sub 保存_Click()

Dim li_newrow As Integer

li_newrow = ActiveSheet.UsedRange.Rows.Count + 2
Cells(li_newrow, 1).FormulaR1C1 = li_newrow - 7
Cells(li_newrow, 2) = Cells(3, 2)
Cells(li_newrow, 3) = Cells(3, 3)
Cells(li_newrow, 4) = Cells(3, 4)
Cells(li_newrow, 5) = Cells(3, 5)
Cells(li_newrow, 6) = Cells(3, 6)
Range("B3").Select
End Sub