エクセルの質問です

あるセル（例えば、A1）の値（例えば文字で、”東京”）であれば隣のセル（ここではB1）の値を（ここでは”東京”）として、元のセルの値を例えば、空白、とする方法があれば教えて下さい。
今は手作業で作業してますが、セル数が多くなると手間がかかります。
よろしくお願いします。

質問者からの補足コメント

• 変換したい対象のセルは、１つではなく、たくさんあります。
  選択したセルに対して実行するか、セル数を例えば１００とか。

    補足日時：2022/12/20 17:25

• 了解しました。マクロの不慣れで申し訳ありませんでした。

  No.5の回答に寄せられた補足コメントです。 補足日時：2022/12/20 18:59

No.1 回答者： 銀鱗 回答日時： 2022/12/19 10:42

自分なら、該当するセルのある行だけを表示させて、

A列のセルをまとめてB列に移動させます。

A列にオートフィルタを適用しましょう。

この回答へのお礼

ありがとうございます。

お礼日時：2022/12/24 18:05

No.2 回答者： タマタマポチ 回答日時： 2022/12/19 10:47

「A1が東京であれば、B1を東京としてその後、元のA1を空白にする」でしょうか？

これは無理なのです。
　
A1が空白になった時点で、B1も空白になってしまいます。

この回答へのお礼

対象とする複数あります。たとえば１００セルとか。手作業でしてましたが何か良い方法はないかと思い相談しました。

お礼日時：2022/12/20 17:43

No.3 回答者： fujillin 回答日時： 2022/12/19 11:24

こんにちは

マクロを利用する一例です。

当該シートのシートタブを右クリックして表示される「コードの表示」を選択し、表示されるエディタのコードペインに以下をコピペしておきます。
これにより、ご質問のような状態になると思います。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
If Cells(1, 1).Text = "東京" Then
Cells(1, 1).Clear
Cells(1, 2).Value = "東京"
End If
End Sub

この回答へのお礼

Ifのとこでコンパイルエラーが起こると連絡しましたが、解答欄のコメントコピーして実行した結果、エラーが生じました。
「End　Sub」まで含めて再度実行してみます。

それと、変換したいセルは複数（例えば100セル）あります。
選択してセルに対して実行するか、セル数を例えば１００としてもらえませんか。

お礼日時：2022/12/20 17:42

No.4 回答者： chonami 回答日時： 2022/12/19 13:50

右に同じデータがあれば文字色を白にするとか表示形式で見えなくするなどではダメでしょうか？

この回答へのお礼

ありがとうございました。

お礼日時：2022/12/24 18:06

No.5 回答者： fujillin 回答日時： 2022/12/20 18:23

No3です。

＞解答欄のコメントコピーして実行した結果、エラーが生じました。
No3のコードは直接実行するコードではありません。
設定しておくだけのものです。

設定した状態で、A1セルに 東京 と入力すれば、ご質問のようになります。

この回答へのお礼

ありがとうございました。

お礼日時：2022/12/24 18:06