指定した語句と隣のセルを空欄にする

質問

語句を指定して、そのセルと、
そのセルの隣のセルを空欄にする。（削除してセルを詰めるではない）
というのは、式でできますか？式でできないのであれば、マクロでできますか？

例：
A１東京 B１渋谷
A2広島 B２福岡
・
・
・
A１５３２東京 B１５３２渋谷
・
・
・

いろんな語句が記入されている中、
「東京」を検索して、「東京」とその隣のセルを空欄にする。

Excel2016です。
よろしくお願いいたします。

回答No.1

kkkkkm · ベストアンサー

A列で東京があればA列の該当行とその行の右隣りB列のデータを消します。Range("A:A")で調査範囲を指定しています。

Sub test()
Dim mRng As Range

For Each mRng In Range("A:A")
If mRng.Value = "東京" Then
mRng.Resize(1, 2).ClearContents
End If
Next

End Sub

回答No.2

imogasi

エクセルの関数は、「式を入れたセルの値」をその式の力で変えることはできません。
エクセルの関数の根本大原則です。
このことを思い至らない初心者が、こういう質問を時々出します。
該当するセルについて、同行の作業セルに印づけしたとしてもできないでしょう。
ーー
VBAは作業中に変数にデータを１時保持できるのとか、指定しそのセルを狙い撃ちして、値を変えられるので、本件は検索の問題になり、簡単です。
別範囲にデータを持ってきて、そちらに望むものを作るなら簡単です。これなら質問しないだろう。
ーー
A２：B１０
東京 12
あ ｘ
い ｙ
う ｚ
え う
東京 23
あ ｖ
ｂｂ ｚ
ｃｃ ｗ
D2に式　=IF(A2="東京","",A2)を入れて下方向に式複写
E2に式　=IF(A2="東京","",B2)　を入れて下方向に式複写
結果　D2:E10

あ ｘ
い ｙ
う ｚ
え う

あ ｖ
ｂｂ ｚ
ｃｃ ｗ