MENU

2つのセル範囲の値を、入れ替える

無料アプリで、すぐにエクセルVBAマクロを作成できます。

例として、「2つのセル範囲の値を、入れ替える」VBAマクロを作成します。

(ページの末尾に、VBAコード掲載)

事例

エクセル画面で、Ctrlキーを使い、2つのセル範囲を選択します。 

VBAマクロを実行すると、2つのセル範囲の値が、入れ替わりました。



できました(^^♪

アプリの設定

アプリの設定です。

アプリのトップページ 

⇒▼検索・置換・2表比較 

⇒【ツール】2つのセル範囲の値を、入れ替える

ポイント】

 「ショートカットキーによるマクロの実行」が便利です。

 

 

 

 

作成されるコード

Sub デモ_18() '2つのセル範囲の値を、入れ替える
Application.ScreenUpdating = False ' 画面描画を停止
Application.DisplayAlerts = False  ' 警告表示を停止
Dim 仮置き1 As Variant, 仮置き2 As Variant, セル範囲1 As Range, セル範囲2 As Range
If Selection.Areas.Count <> 2 Then
    MsgBox "2つのセル範囲を、選択してください"
    Exit Sub
End If
Set セル範囲1 = Selection.Areas(1)
Set セル範囲2 = Selection.Areas(2)
If セル範囲1.Count <> セル範囲2.Count Then
    MsgBox "2つの範囲の、セルの個数が違います"
    Exit Sub
End If
仮置き1 = セル範囲1
仮置き2 = セル範囲2
セル範囲1 = 仮置き2
セル範囲2 = 仮置き1
Application.DisplayAlerts = True   ' 警告表示を再開
Application.ScreenUpdating = True  ' 画面描画を再開
End Sub

 

アプリはこちらから↓↓↓↓