選択範囲の入れ替え？ボタン1つで一発やで！【数式除外＆重なり防止】」

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

---

---

🟢 1. はじめに：こんな人に使ってほしい！

• カレンダーや工程表で、予定を別の日に移したい…
• 一行まるごと別の場所に動かしたい…
• でも上書きしちゃうの怖い！コピーして貼って消してって…めんどくさ！

👑 選択範囲を、ボタン1つで「まるっと入れ替え」！
しかも…

• ❌ 数式は守る！（壊さない）
• ❌ 重なった範囲はエラーでストップ！（事故らない）
• ✅ セルの色は「入れ替えるかどうか選べる」！

---

🔧 2. マクロ：コード全文紹介

Sub 選択範囲を入れ替え_v2()

    Dim rng1 As Range, rng2 As Range
    Dim ws As Worksheet
    Dim tempArr1() As Variant, tempArr2() As Variant
    Dim i As Long
    Dim c As Range
    Dim cell1 As Range, cell2 As Range
    Dim tempFontColor As Variant, tempNumberFormat As Variant
    Dim swapColor As VbMsgBoxResult
    Dim tempInterior As Variant

    Set ws = ActiveSheet

    ' 範囲選択
    On Error Resume Next
    Set rng1 = Application.InputBox("1つ目の範囲を選択してください", Type:=8)
    Set rng2 = Application.InputBox("2つ目の範囲を選択してください", Type:=8)
    On Error GoTo 0

    If rng1 Is Nothing Or rng2 Is Nothing Then
        MsgBox "範囲が正しく選択されていません。", vbExclamation
        Exit Sub
    End If

    If rng1.Cells.Count <> rng2.Cells.Count Then
        MsgBox "範囲のサイズが一致していません。", vbExclamation
        Exit Sub
    End If

    ' 重なりチェック
    For Each c In rng1
        If Not Intersect(c, rng2) Is Nothing Then
            MsgBox "範囲が重なっています。入れ替えできません。", vbCritical
            Exit Sub
        End If
    Next c

    ' 色を入れ替えるか確認
    swapColor = MsgBox("セルの色も入れ替えますか？", vbYesNo + vbQuestion, "色の入れ替え")

    ' 一時配列に値を格納（数式除外）
    ReDim tempArr1(1 To rng1.Cells.Count)
    ReDim tempArr2(1 To rng2.Cells.Count)

    For i = 1 To rng1.Cells.Count
        If Not rng1.Cells(i).HasFormula Then tempArr1(i) = rng1.Cells(i).Value
        If Not rng2.Cells(i).HasFormula Then tempArr2(i) = rng2.Cells(i).Value
    Next i

    ' 値の入れ替え（数式除外）
    For i = 1 To rng1.Cells.Count
        If Not rng1.Cells(i).HasFormula Then rng1.Cells(i).Value = tempArr2(i)
        If Not rng2.Cells(i).HasFormula Then rng2.Cells(i).Value = tempArr1(i)
    Next i

    ' 書式の入れ替え（色選択あり＋塗りつぶしなし対応）
    For i = 1 To rng1.Cells.Count
        Set cell1 = rng1.Cells(i)
        Set cell2 = rng2.Cells(i)

        ' 背景色
        If swapColor = vbYes Then
            If cell1.Interior.ColorIndex = xlColorIndexNone Then
                If cell2.Interior.ColorIndex = xlColorIndexNone Then
                    ' どちらも塗りつぶしなし → 何もしない
                Else
                    ' cell1は無色、cell2は色付き
                    cell1.Interior.Color = cell2.Interior.Color
                    cell2.Interior.ColorIndex = xlColorIndexNone
                End If
            Else
                If cell2.Interior.ColorIndex = xlColorIndexNone Then
                    ' cell1は色付き、cell2は無色
                    cell2.Interior.Color = cell1.Interior.Color
                    cell1.Interior.ColorIndex = xlColorIndexNone
                Else
                    ' 両方色付き → 通常通り入れ替え
                    tempInterior = cell1.Interior.Color
                    cell1.Interior.Color = cell2.Interior.Color
                    cell2.Interior.Color = tempInterior
                End If
            End If
        End If

        ' フォント色
        tempFontColor = cell1.Font.Color
        cell1.Font.Color = cell2.Font.Color
        cell2.Font.Color = tempFontColor

        ' 表示形式
        tempNumberFormat = cell1.NumberFormat
        cell1.NumberFormat = cell2.NumberFormat
        cell2.NumberFormat = tempNumberFormat
    Next i

    MsgBox "選択範囲を入れ替えました！（数式は保持されています）", vbInformation

End Sub

---

---

💡 3. 便利に使うコツ：リボンに登録しよう

1. マクロを標準モジュールに貼り付け
2. Excelのオプション →「リボンのユーザー設定」
3. 任意のタブやグループに追加して、マクロを割り当てよう！
4. アイコンも好みにカスタムすると毎回テンション上がる😆

※ 詳しくはリボン登録の記事こちら👇
【切り抜き】マクロをリボンに追加しよう！

---

✨ 4. まとめ：これで作業効率爆上がり！

• ボタン1つで2つの範囲をサクッと入れ替え！
• 数式は壊さない安全設計！
• 色の移動は自分で選べる親切仕様！
• さらにリボン登録でワンクリック起動！

---

🎯締めのあいさつ

---