別のシートから列の最終行に5か所貼り付けたい。
試しに3か所してみましたが、
1か所目のD列の下に3個コピーされます。
どうすれば別の列の最終行に貼り付けられますか?
よろしくお願いします。
Sub cell?コピー ()
ActiveSheet.Range("S9").Select
Selection.Copy
Sheets("1").Select
n = Cells(Rows.Count, "D").End(xlUp).Row + 1 Range("D" & n).Select Sheets("1").Paste ActiveSheet.Range("S28").Select Selection.Copy Sheets("1").Select n = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & n).Select Sheets("1").Paste ActiveSheet.Range("S18").Select Selection.Copy Sheets("1").Select n = Cells(Rows.Count, "F").End(xlUp).Row + 1 Range("F" & n).Select Sheets("1").Paste
質問のタイトルは「同じシートに5か所最終行に貼り付けをしたい」、質問の最初の行は「別のシートから列の最終行に5か所貼り付けたい」となっていますが、質問者がしたいことは「別のシートの異なる5つのセルの値を、それとは違うシートの5つの列の最終行のセルに貼り付けたい」という事でしょうか?
質問のコードでは、『ActiveSheet.Range("S9").Select』となっていて、現在開いているシート(ActiveSheet)のセルから値をコピーしているようですが、これは質問の最初に書かれている「別のシートから」と矛盾します。
また、最初の値のコピーは起動時に開いていたシート(ActiveSheet)からですが、その後は『Sheet("1").Select』されているので、ワークシート"1”の中のセルからセルへのCopy&Pasteになっています(別のシートからになっていません)。
まず、どのような事をしたいのかを質問に判りやすく追加して下さい。
activeシートから5か所sheet("1")の最終行にコピーをしたいです。
activシートからsheet("1")に最終行の下に5か所貼り付けをしたいです。わかりにくくてすみません。
回答3件
あなたの回答
tips
プレビュー