复制并粘贴到下一个可用行,忽略格式

时间:2018-12-11 23:14:03

标签: excel

我希望将信息从一页复制到另一页到下一个可用行。保存之间数据的行数将改变。我目前有以下代码:

Sub CFSNCAll()

    r = 1
    Sheets("CFSNC_All").Range("C12:T298").Copy
    If Sheets("CFSNC_All").Range("C12") = Sheets("Sheet1").Range("A65536").End(xlUp) _
        Then r = 0
    Sheets("Sheet1").Range("A65536").End(xlUp).Offset(r, 0).PasteSpecial _
        Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

这在没有格式的excel工作表中完美工作。我的Excel工作表具有边框,范围中两列中的条件格式以及已关闭的网格线。当前,当您第二次运行宏时,数据将粘贴到右表中,但在第298行上。我认为它是在格式化之前的单元格中注册信息。是否可以忽略格式并确保将其粘贴到条目下方?

0 个答案:

没有答案
相关问题