首页 > 解决方案 > 复制并粘贴到下一个可用行中,忽略格式

问题描述

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

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 行。我认为它是在格式化之前的单元格中注册信息。有没有办法忽略格式并确保它粘贴在条目下方?

标签: excel

解决方案


推荐阅读