Question

我有以下宏来将数据从一张纸传输到另一张。但是我需要第一行是日期（修改日期）所以我需要宏来忽略顶行。我看过网上但似乎无法找到解决方案？

Application.EnableEvents = False

另一方面，我刚刚添加了

Sub HistoricMD()

    ActiveSheet.Range("K7:K15").Copy
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues
    Application.CutCopyMode = False

End Sub

要修改日期，任何其他更好的解决方案都会很好！

谢谢：）

Answer 1

你不能改变这个：

Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues

对此：

Sheets("Historic MD").Range("IV2").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues

Answer 2

更改如下：我们将粘贴到第2行（正如您已经使用偏移量），并手动将日期放入第1行：

Sub HistoricMD()

    ActiveSheet.Range("K7:K15").Copy
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(0, 1).value = Date
    Application.CutCopyMode = False

End Sub

运行宏时忽略第一行

2 个答案: