將時間戳粘貼到列的最後一行中

我使用以下宏的目標是複製與活動單元格的行對應的列A到F，將這些列中的數據粘貼到工作表「第1天」中，並在目標工作表中列G的第一個空行，粘貼一個時間戳。將時間戳粘貼到列的最後一行中

在下面的代碼中，我只能設法複製活動單元格的整個行。時間戳被粘貼到目標工作表G列中的隨機行中。大多數時候，它什麼都不復制。

在此先感謝您的時間和幫助！

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

來源

2017-10-16 Wendy

嘗試

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

來源

2017-10-16 08:17:42 xpofer

太謝謝你了！您提到「第1天」（做出更改）是非常正確的。我正在尋找將時間戳粘貼到目標表中列G的最後一行（將數據複製到同一行）。如何調整以下代碼中的範圍：表格（「第1天」）。範圍（「G」＆lastRow）。值=現在再次感謝您的幫助！ – Wendy

爲您更新了答案。試試看，讓我知道它是如何爲你工作的。 – xpofer

這個伎倆，非常感謝！我調整了NextRow與以下所以我引用「第1天」工作表：NextRow =表（「第1天」）。範圍（「A」和Rows.Count）.End（xlUp）.Offset（1）.Row奇蹟般有效！ – Wendy

將時間戳粘貼到列的最後一行中

回答

相關問題