在保存数据按钮的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)
请按照以下流程操作：
1，选择C列
2，ctrl g ，选择定位条件，选择“空值”，点确定
3，直接按 =，向上键，按住ctrl敲回车
4，ok
请按照以下流程操作：
1，选择C列
2，ctrl g ，选择定位条件，选择“空值”，点确定
3，直接按 =，向上键，按住ctrl敲回车
4，ok
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测试通过，,有疑问继续为您解答。
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024