| |
| 【タイトル】 |
| 最後の行のデータを次の行にコピーする |
| |
| |
| |
Sub Copy_LastData_toNext()
'最後の行のデータを次の行にコピーする
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(LastRow & ":" & LastRow).Select
Selection.Copy
Range("A" & LastRow + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows(LastRow & ":" & LastRow).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A" & LastRow + 1) = Date
End Sub
|
|
| |
| 【説明】 |
| １行目：最後の行の行番号を保持する変数を定義 |
| ２行目：最後の行の行番号を取得 |
| ３行目：最後の行を選択 |
| ４行目：データをコピー |
| ５行目：次の行の「Ａ列」に移動 |
| ６行目：アクティブシートにペースト |
| ７行目：カットコピーモードを解除 |
| ８行目：最後の行のデータを選択 |
| ９行目：選択したデータをコピー |
| １０行目：データをペースト |
| １１行目：追加した行の「Ａ列」に今日の日を入力 |
| |
|