No.4ベストアンサー
- 回答日時:
選択した2つのセルの値を交換するマクロを作ってみました。
***マクロの登録***
1.下のマクロをコピーして標準モジュールに貼り付けて下さい。
(標準モジュールの挿入:ツール→マクロ→マクロ→編集でVBE画面に移動し、挿入→標準モジュール)
2.シートでツール→マクロ→マクロ→(Koukanを選択して)オプションで
ショートカットキー(Qにしましょう)を入力してOK→マクロダイアログを閉じます。
うまくいっていれば、Ctrl+Shift+Qキーでこのマクロが機能します。
***交換処理***
1.交換する2つのセルの選択方法です。
まず1つ目のセルを選択しCtrlキーを押しながら2つ目のセルを選択して下さい。
マクロ実行時、2つ選択していなかったらメッセージが出ます。
(2つ以外はエラーです)
2.Ctrl+Shift+Qキーで2つのセルの値が交換されます。
3.何回でも繰り返せます。
テスト用のシート等を作って試してください。楽になればいいですね。
Option Explicit
Public Sub Koukan()
Dim rg As Range '選択セルを調べるワーク変数
Dim rgChange(2) As Range '2つの選択セルを単独セルに分割
Dim rgCot As Long '選択セル数のカウンタ
For Each rg In Selection '選択セルを調べる
rgCot = rgCot + 1
If rgCot <= 2 Then
Set rgChange(rgCot) = rg
Else
Exit For '長大な範囲を選択していた場合の対応
End If
Next
If rgCot <> 2 Then '2個選択していなかったら中断
MsgBox "セルの選択方法が間違っています。中断します。"
Exit Sub
End If
'セル内容の交換
Dim rgWork(2) 'ワーク
rgWork(1) = rgChange(1)
rgWork(2) = rgChange(2)
Range(rgChange(1).Address) = rgWork(2)
Range(rgChange(2).Address) = rgWork(1)
End Sub
No.5
- 回答日時:
AセルとBセルの内容をスワップするということですよね。
エクセルの基本機能ではこれは無理と思われます。
ただし、マクロを組めば、可能なことは可能です。
ちなみに以下のような内容になると思われます。
Aセルに移動し、マクロを起動。
1.起動時点のセル位置とセル内容を変数に保存。
2.Bセルを選択するようメッセージを表示。
Bセルに移動し、マクロを再開。
3.Bセルのセル内容を保存し、1.で保存したAセルのセル内容を貼り付け。
4.Aセルのセル位置を参照して、Bセルの内容を貼り付け。
No.1
- 回答日時:
hirocyanさんこんにちは
文字列を入れ替えるということでしたら、メニューバーの[編集]>[置換]として、検索する文字列と置換後の文字列を記入した後、[すべて置換]とすれば、一括で入れ替えられると思います。
データの順番を入れ替えるということでしたら、[データ]>[並べ替え]という機能があります。ヘルプで「並べ替え」を検索してください。
この回答への補足
説明が不足していました。
各々のデータは共通なデータではなく、まったく個別のデータです。
たとえば名前の入れ替えみたいなものです。
こちらの解釈の意味が違っていましたら御免なさい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Android(アンドロイド) スマホ(iPhone)のデータ移動に付いて。 2 2022/06/18 15:09
- その他(ブラウザ) cvsファイルをダウンロードすると、自動で拡張子がExcelのものになる 5 2022/07/20 21:21
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- iPhone(アイフォーン) iphoneのicloud写真データ移動について 3 2022/11/28 18:11
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- Excel(エクセル) Excelで作成しているシート(表) 5 2023/06/15 10:20
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- その他(Microsoft Office) エクセルで串刺ししたシートの並べ替えをしたいです 4 2023/02/14 11:59
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- ノートパソコン パソコンのデータ移行 9 2022/12/30 09:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excel ハイパーリンクのURLを別...
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
[エクセル VBA]テキストファ...
-
Excelで、図形内の文字をセルに...
-
エクセルでページ数をあるセル...
-
Excelでセルをクリックす...
-
Excel2007 色のカウント (VBA)
-
セルの内容をテキストボックス...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
エクセル マクロ 相対パスか...
-
太字に設定されているセルの個...
-
VBA 見つからなかった時の処理
-
セルがクリックされた回数をカ...
-
マクロを実行すると画像がズレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
マクロを実行すると画像がズレ...
-
太字に設定されているセルの個...
-
Excelで、図形内の文字をセルに...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
Excel ハイパーリンクのURLを別...
-
エクセルでPDFリンクを大量...
-
エクセル 未入力セルがあると...
-
現在のセルの位置を返す関数は...
-
VBA 見つからなかった時の処理
-
EXCELのセルや文字色の反映
-
【EXCEL】先週の月曜日の日付を...
-
セルの値が変ると自動でマクロ...
-
エクセルでセルをダブルクリッ...
-
アポストロフィーの一括挿入 ...
おすすめ情報