VBA 在下一个可用列中复制/粘贴范围，然后重复将一天添加到新粘贴的单元格之一

Question

我正在尝试创建一个带有附加宏的按钮，该按钮将复制包含公式和数据的范围，然后将其粘贴到下一个可用列，最后将一天添加到一个特定单元格。我遇到的问题是我想一遍又一遍地做，每个新粘贴的单元格都会从以前粘贴的单元格中添加一个日期。这个想法是我点击按钮，它粘贴原始范围加上添加到那个特定单元格的一天，然后我可以将数据添加到那个新粘贴的块，然后点击按钮并获得一个新的粘贴块，下一个特定单元格具有一天添加到它。

到目前为止我有这个：

Sub PasteToNextEmptyColumn()

    Application.ScreenUpdating = False
        
    Range("A4:C14").Copy
    ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteColumnWidths
    ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteAll

    Range("E9").Value = DateAdd("d", 1, (Range("E9")))


    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
End Sub

Answer 1

我有点不确定你想要完成什么，但如果这有帮助的话。

对于日期，您可以将其视为一个值，只需输入：

• Range("E9") = Range("E9") + 1 ' 这将在同一个单元格 E9 中输入日期

也许确保日期是 inn DD/MM/YYYY 或其他可识别的格式。

似乎粘贴是正确的，如果您希望将日期与添加的新数据一起输入，使用您已经使用的最后一列公式有点不同。