열의 마지막 행에 타임 스탬프 붙여 넣기

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

는 "1 일"시트를 참조하는 것을 잊지 마세요, 타임 스탬프에 관해서는

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

을 시도합니다.

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

당신이 그것을 가지고하는 방법

, 당신이 당신의 현재 워크 시트에 타임 스탬프를 삽입했다 ( 하지 "1 일"). 내 생각 엔 행 2가 활성화 된 행이 될 때마다 "1 일"시트의 다음 빈 행에 전체 행 ( G2 타임 스탬프와 함께)을 복사했습니다. 그것이 타임 스탬프가 모든 "임의"행에 나타나는 이유입니다.

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