エクセルの質問の続き

fujillin さんのマクロの解答ありがとうございました。
早速試してみましたが、「If」のところでコンパイルエラーが生じます。

質問が舌足らずでしたので補足します。
対象となるセルは複数（例えば100セルとか）あります。
例えば、選択したセルに対して実行するとか、最終のセルを「終わり」とするとか。セル数を１００とするとか。どんなものでしょうか。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/12/20 18:12

質問は下記URLでしょうか。

https://oshiete.goo.ne.jp/qa/13276449.html

以下、その前提での回答です。
変換対象のセルはA列です。（A列の1行目から最後の行まで）
以下のマクロを標準モジュールに登録してください。

Public Sub A列変換()
Dim ws As Worksheet
Dim maxrow As Long
Dim wrow As Long
Set ws = ActiveSheet
maxrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
For wrow = 1 To maxrow
If ws.Cells(wrow, 1).Value = "東京" Then
ws.Cells(wrow, 2).Value = ws.Cells(wrow, 1).Value
ws.Cells(wrow, 1).Clear
End If
Next
End Sub