[已解决]修改宏

lvjie0811

引用了别人的表格，有些问题不得解决，大侠出手修改宏

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-18 09:19

Sub 打印保存()
    Dim i, m
    ActiveWindow.SelectedSheets.PrintOut
    With Sheets("表3")
        i = .Range("C65536").End(xlUp).Row + 1
        Sheets("表2").Range("A3:F11").Copy
        .Range("A" & i).PasteSpecial Paste:=xlPasteValues
        For m = i + 10 To i Step -1
            If .Cells(m, "C") = "" Then .Rows(m).Delete
        Next
        Sheets("表2").Range("D12").Copy
        .Range("C65536").End(xlUp).Offset(0, 3).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Range("B3:B11,F3:F11,D12").ClearContents
End Sub

跳转到最佳答案楼层

zjdh

Sub 打印保存()
    Dim i, m
    ActiveWindow.SelectedSheets.PrintOut
    With Sheets("表3")
        i = .Range("C65536").End(xlUp).Row + 1
        Sheets("表2").Range("A3:F11").Copy
        .Range("A" & i).PasteSpecial Paste:=xlPasteValues
        For m = i + 10 To i Step -1
            If .Cells(m, "C") = "" Then .Rows(m).Delete
        Next
        Sheets("表2").Range("D12").Copy
        .Range("C65536").End(xlUp).Offset(0, 3).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Range("B3:B11,F3:F11,D12").ClearContents
End Sub