在保存数据按钮的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