求各位老师帮助优化下公式

j是是

开完销售单后   没后货物的销售行不想被保存Sub 打印()'打印票据
Sheets("票据打印").Select
ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
'保存数据
With Sheets("记录")
    x = .Range("a65536").End(xlUp).Row + 1 '取得"记录"表中最后一个空行的行号（即写入位置）
    For i = 0 To 5 '商品信息分五行，为了简化代码，使用循环语句
        .Cells(x + i, 2) = [c2]  '客户
        .Cells(x + i, 1) = [c3]  '日期
        .Cells(x + i, 3) = [g2]  '单据编号
        .Cells(x + i, 5) = Cells(i + 5, 1)  '商品名称
        .Cells(x + i, 6) = Cells(i + 5, 2)  '规格
        .Cells(x + i, 7) = Cells(i + 5, 3)  '数量
        .Cells(x + i, 8) = Cells(i + 5, 4)  '单价
        .Cells(x + i, 9) = Cells(i + 5, 5)  '金额
        .Cells(x + i, 10) = Cells(i + 5, 6)  '备注
        .Cells(x + i, 4) = [g3] '付款方式
    Set jl = Nothing
    Next
End With
'清除数据（单据编号E2格与有公式的单元格不用清除）
Range("c2:d2,g5:g10,a5:e10,g3").ClearContents
'最后让票据的号码自动加1
s = Range("g2") '收据上的当前序号在E2单元格
Range("g2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一（编号的左两位是字符，右四位是数字）
MsgBox "打印并保存完毕", , "提示"
End Sub

j是是

需要写入是当在记录循环里   产品名称位置为空则结束记录

j是是

求求各位老师帮助

grf1973

Sub 打印()
    '打印票据
    Sheets("票据打印").Select
    ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
    '保存数据
    With Sheets("记录")
        x = .Range("a65536").End(xlUp).Row + 1 '取得"记录"表中最后一个空行的行号（即写入位置）
        For i = 0 To 5 '商品信息分五行，为了简化代码，使用循环语句
            If Cells(i + 5, 1) <> "" Then
                .Cells(x + i, 2) = [c2]  '客户
                .Cells(x + i, 1) = [c3]  '日期
                .Cells(x + i, 3) = [g2]  '单据编号
                .Cells(x + i, 5) = Cells(i + 5, 1)  '商品名称
                .Cells(x + i, 6) = Cells(i + 5, 2)  '规格
                .Cells(x + i, 7) = Cells(i + 5, 3)  '数量
                .Cells(x + i, 8) = Cells(i + 5, 4)  '单价
                .Cells(x + i, 9) = Cells(i + 5, 5)  '金额
                .Cells(x + i, 10) = Cells(i + 5, 6)  '备注
                .Cells(x + i, 4) = [g3] '付款方式
            End If
        Next
    End With
    '清除数据（单据编号E2格与有公式的单元格不用清除）
    Range("c2:d2,g5:g10,a5:e10,g3").ClearContents
    '最后让票据的号码自动加1
    s = Range("g2") '收据上的当前序号在E2单元格
    Range("g2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一（编号的左两位是字符，右四位是数字）
    MsgBox "打印并保存完毕", , "提示"
End Sub

j是是

谢谢老师，你的解答完美解决我的问题

j是是

grf1973 发表于 2017-1-3 15:54
Sub 打印()
    '打印票据
    Sheets("票据打印").Select

谢谢老师  完美解答我的疑惑