複数文字の削除と置換えを実行するマクロなのですが、
なぜか実行できません。
A列内
・激安販売、激安SALE、送料無料を削除
・EAGLEをイーグルに置換
・#をナンバーに置換
上記(画像参照)のような処理をしたいのですが、下記のVBAを
書き込み実行しても、A列が選択されるのみで、変化がありません。
エラーも表示されません。
なぜでしょうか?
※Office 2016使用
Sub 文字削除と置換()
Range("A:A").Select
With
.Replace What:="激安販売 ", Replacement:="", LookAt:=xlWhole
.Replace What:="EAGLE", Replacement:="イーグル"
.Replace What:="激安SALE", Replacement:=""
.Replace What:="送料無料", Replacement:=""
.Replace What:="#", Replacement:="ナンバー"
End With
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは!
>・・・LookAt:=xlWhole
だと完全一致のセル全体になりますので、
>・・・lookat:=xlPart
にする必要があると思います。
Sub Sample1()
With Range("A:A")
.Replace what:="激安販売", replacement:="", lookat:=xlPart
.Replace what:="激安SALE", replacement:="", lookat:=xlPart
.Replace what:="EAGLE", replacement:="イーグル", lookat:=xlPart
.Replace what:="#", replacement:="ナンバー", lookat:=xlPart
End With
End Sub
でお望みの結果にならないでしょうか?
※ EAGLE と # は半角文字としています。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vba で1と10を正確に判断させる方法を教えてください。 TからU列に1と入力があれば 3 2022/12/26 16:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
- Visual Basic(VBA) VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます 1 2022/10/15 16:30
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
エクセルのセルの中の,よりも前...
-
Excelの入力済みセルに一括で、...
-
エクセルで「4」「9」抜けの...
-
企業名簿で(株)や(有)を無視し...
-
Excelからテキストへのコ...
-
Excelのmatch関数エラー原因が...
-
Excelで、半角スペースをTABに...
-
【エクセル】ピボットテーブル...
-
小数点を消す方法
-
Excelのシートにある1行...
-
Excelのアポストロフィーの削除
-
エクセルでセル内の一部分だけ...
-
excelで可視セルのみ置換
-
エクセルでセル内の一部を一括...
-
Excelの空文字セルの削除方法を...
-
EXCELで"Tab"を"@"に置換したい
-
エクセルの関数で、記号などを...
-
エクセルでスペースの記号を表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelのmatch関数エラー原因が...
-
Excelの入力済みセルに一括で、...
-
エクセルのセルの中の,よりも前...
-
Excelからテキストへのコ...
-
excelで可視セルのみ置換
-
置換機能を使わずに先頭に「'」...
-
Excelで、半角スペースをTABに...
-
【エクセル】ピボットテーブル...
-
エクセルでセル内の一部を一括...
-
Excelの空文字セルの削除方法を...
-
Excelのシートにある1行...
-
エクセルの表ををメモ帳などに...
-
小数点を消す方法
-
Excelで電話番号などの-(ハイ...
-
Excelのアポストロフィーの削除
-
Excel "~区"のみを削除したい
-
エクセルでセル内の一部分だけ...
-
一括でダブルクリックした状態...
おすすめ情報