エクセルVBAでコピー元削除後もペースト先の内容を保持して連続コピーする方法

エクセルで複数のセルをコピーしてペーストする際、コピー元を削除しても、ペースト先に元の文字があればそれを残しつつ、空欄までコピーを続けるマクロを作成することが可能です。この記事では、その具体的な方法とサンプルコードを解説します。

マクロで実現したい動作の概要

目的は以下の通りです。

• コピー元セルの値を取得してコピー
• コピー元を削除
• ペースト先に既存の文字がある場合は保持しつつコピーする
• ペースト先が空欄になるまで繰り返す

この動作をVBAで自動化すると、大量のデータ処理を効率化できます。

サンプルVBAコード

以下は上記の動作を実現する簡単なVBAの例です。

Sub CopyAndPastePreserve()
    Dim srcRange As Range, dstRange As Range, cell As Range
    Set srcRange = Range("A1:A10") ' コピー元範囲
    Set dstRange = Range("B1")      ' ペースト開始セル

    For Each cell In srcRange
        If cell.Value <> "" Then
            ' コピー元を取得
            Dim valueToCopy As Variant
            valueToCopy = cell.Value

            ' コピー元を削除
            cell.ClearContents

            ' ペースト先が空欄の場合のみコピー
            If dstRange.Value = "" Then
                dstRange.Value = valueToCopy
            End If

            ' 次のペースト先へ移動
            Set dstRange = dstRange.Offset(1, 0)
        End If
    Next cell
End Sub

動作のポイント

このマクロでは、コピー元のセルを順番に取得し、ペースト先が空欄の場合のみ値を貼り付けるようにしています。既に文字がある場合は上書きされず、空欄に到達するまでコピーが続きます。

また、コピー元を削除することで、元データを残さず処理を進めることができます。

応用例と注意点

応用として、コピー元やペースト先の範囲を動的に設定したり、条件付きでコピーすることも可能です。ただし、範囲指定や空欄判定の条件に注意しないと、意図しないセルを上書きする可能性があります。

処理前にバックアップを取るなど、安全対策を行うことを推奨します。

まとめ

エクセルVBAを使うことで、コピー元を削除してもペースト先の内容を保持しつつ、空欄まで連続でコピーする処理を自動化できます。サンプルコードをベースに、自分のシートに合わせて範囲や条件を調整することで、効率的なデータ処理を実現可能です。