将时间戳粘贴到列的最后一行中

Question

我使用以下宏的目标是复制与活动单元格的行对应的列A到F，将这些列中的数据粘贴到工作表“第1天”中，并在目标工作表中列G的第一个空行，粘贴一个时间戳。

在下面的代码中，我只能设法复制活动单元格的整个行。时间戳被粘贴到目标工作表G列中的随机行中。大多数时候，它什么都不复制。

在此先感谢您的时间和帮助！

ActiveCell.EntireRow.Copy Destination:=Sheets("Day 1").Range("A" & Rows.Count).End(xlUp).Offset(1) 
Range("G2").Value = Now() 

Answer 1

尝试

Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy Sheets("Day 1").Range("A" & Rows.Count).End(xlUp).Offset(1) 

至于时间戳，不要忘记，以引用 “第1天” 片材。

Sheets("Day 1").Range("G2").Value = Now 

你有它的方式，你将时间戳到您的当前工作表（不“第1天”）。我的猜测是，每当第2行恰好是活动行时，就会将整行（连同G2时间戳）复制到“第1天”表单的下一个空行中。这就是为什么时间戳全部出现在“随机”行中。

UPDATE：

dim NextRow as Long 

NextRow = Range("A" & Rows.Count).End(xlUp).Offset(1).Row 
Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy Sheets("Day 1").Range("A" & NextRow) 
Sheets("Day 1").Range("G" & NextRow).Value = Now