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)

关于时间戳，请不要忘记参考＆＃34;第1天＆＃34;片材。

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

您使用它的方式是将时间戳插入当前工作表（ NOT ＆＃34;第1天和第34天;）。我的猜测是，每次第2行恰好是活动行时，您将整行（以及 G2 时间戳）复制到＆＃34;第1天和第34天的下一个空行中。片。这就是时间戳出现在＆＃34;随机＆＃34;遍布各地。

<强>更新

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

将时间戳粘贴到列

1 个答案: