質問: VBA初心者です。教えて頂けると助かります。 「元データ」シートにA列からC列にデータが入っています。1行目は見出しです。「コード一覧」シートにはA列にデータが入っています。
回答: なにをなさりたいのか、説明を読んでも、コードを解読しても伝わらないです。 という状態ですが、ひとつだけアドバイス。 >「コピー後」シートには「コード一覧」にある > 最後のコードに書き換えたデータしが残っていません 当然ですね。 元データからコピー後へコピーしているところ Worksheets("元データ").Range(Cells(2, 1), Cells(MaxRow, 3)).Copy Worksheets("コピー後").Cells(NextRow, 1) のNextRowは、最初に与えられた初期値 >NextRow = Worksheets("コピー後").Cells(Rows.Count, 1).End(xlUp).Row 1 のまま増加するでもなく減少するでもなく一定値になってます。 なので、元データのセル値は変化しても、すべて上書きになって、結果最後にコピーされたものが残るということになります。 次の3カ所を変更すれば、あなたのやりたい事に近づくのかもしれません。 1) Dim NextRow As Long ↓ 削除 2) NextRow = Worksheets("コピー後").Cells(Rows.Count, 1).End(xlUp).Row 1 ↓ 削除 3) Worksheets("元データ").Range(Cells(2, 1), Cells(MaxRow, 3)).Copy Worksheets("コピー後").Cells(NextRow, 1) ↓ Worksheets("元データ").Range(Cells(2, 1), Cells(MaxRow, 3)).Copy Worksheets("コピー後").Cells(Rows.Count, 1).End(xlUp).Offset(1)