打印并保存后,记录表里会出现空区

三楼game

从百度上搜一段代码,不知道如何更改,
如题,有两张表,"日报" 表要打印后保存到"记录"表里,可保存后不知道为什么,不会自动判断空白区域,只会导入我自选的区域,有没大哥帮忙下.可以实现在记录无空行保存,谢谢,代码如下!!
Sub 打印()
'打印日报表
Sheets("日报表").Select
ActiveWindow.SelectedSheets.PrintOut
MsgBox "打印完成", , "提示"
End Sub
Sub 保存()
With Sheets("记录")
x = .Range("a65536").End(xlUp).Row + 1
For i = 0 To 27
.Cells(x + i, 1) = Cells(i + 3, 1) '序号
.Cells(x + i, 2) = Cells(i + 3, 2) '日期
.Cells(x + i, 3) = Cells(i + 3, 3) '工序
.Cells(x + i, 4) = Cells(i + 3, 4) '数量
.Cells(x + i, 5) = Cells(i + 3, 5) '工时范围
.Cells(x + i, 6) = Cells(i + 3, 6) '总工时
.Cells(x + i, 7) = Cells(i + 3, 7) '操作员
.Cells(x + i, 8) = Cells(i + 3, 8) '统计员
.Cells(x + i, 9) = Cells(i + 3, 9) '备注
Next
End With
'清除数据（单据编号E2格与有公式的单元格不用清除）
Range("B3:I28").ClearContents　(就是这个区域),
MsgBox "保存完毕", , "提示"
End Sub

扑腾

因为你的循环是0 to 27 即复制了28行，而你实际数据只有8行，所以赠送20行空白

alstar

那是必然的。你循环了27次。你应该做个变量
Sub 保存()
r = Sheets("日报表").Range("b2").End(xlDown).Row - 2
With Sheets("记录")
x = .Range("a65536").End(xlUp).Row + 1
For i = 0 To r
.Cells(x + i, 1) = Cells(i + 3, 1) '序号
.Cells(x + i, 2) = Cells(i + 3, 2) '日期
.Cells(x + i, 3) = Cells(i + 3, 3) '工序
.Cells(x + i, 4) = Cells(i + 3, 4) '数量
.Cells(x + i, 5) = Cells(i + 3, 5) '工时范围
.Cells(x + i, 6) = Cells(i + 3, 6) '总工时
.Cells(x + i, 7) = Cells(i + 3, 7) '操作员
.Cells(x + i, 8) = Cells(i + 3, 8) '统计员
.Cells(x + i, 9) = Cells(i + 3, 9) '备注
Next
End With
'清除数据（单据编号E2格与有公式的单元格不用清除）
Range("B3:I28").ClearContents
MsgBox "保存完毕", , "提示"
End Sub

扑腾

Sub 保存()
m = Range("a30").End(xlUp).Row
    With Sheets("记录")
        x = .Range("a65536").End(xlUp).Row + 1
        n = 1
            For i = 0 To m
                .Cells(x + i, n) = Cells(i + 3, n) '序号
                    n = n + 1
            Next
    End With
'清除数据（单据编号E2格与有公式的单元格不用清除）
Range("B3:I28").ClearContents　(就是这个区域),
MsgBox "保存完毕", , "提示"
End Sub

没附件无法测试，帮你简化了一下，你试试

三楼game

alstar 发表于 2018-9-15 19:51
那是必然的。你循环了27次。你应该做个变量
Sub 保存()
r = Sheets("日报表").Range("b2").End(xlDown).R ...

多谢,问题解决了,-_-

三楼game

扑腾 发表于 2018-9-15 19:56
Sub 保存()
m = Range("a30").End(xlUp).Row
    With Sheets("记录")

多谢,问题解决了,-_-