| |
| 【タイトル】 |
| 現在行のデータをコピーして、現在行の下に挿入し、その行の「Ｄ列」にカーソルを移動する。 |
| |
| Image |
| |
Sub Insert_New()
Dim ThisRow As Long
ThisRow = Selection(1).Row
Rows(ThisRow).Select
Selection.Copy
Rows(ThisRow + 1).Select
Selection.Insert Shift:=xlDown
Range("D" & ThisRow + 1).Select
End Sub
|
|
| |
| 【説明】 |
| １行目：現在行（コピー元）が何行目かを保持する変数を宣言します。 |
| ２行目：現在行を取得します。 |
| ３行目：現在行を選択します。 |
| ４行目：現在行のデータを取得します。 |
| ５行目：現在行の次の行（コピー先）を選択します。 |
| ６行目：その行にデータを挿入します。 |
| ７行目：挿入した行の「Ｄ列」にカーソルを移動します。 |
| |