複数文字の削除と置換えを実行するマクロなのですが、
なぜか実行できません。
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で質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELエクセル長文の置き換え
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
セル内に○○円と入っている場合...
-
Excelで、半角スペースをTABに...
-
エクセルの置換 メアドの@の前...
-
Excelの空文字セルの削除方法を...
-
Excelからテキストへのコ...
-
Excel 「k」の単位表示を数値に...
-
EXCELで違う文字を一度に消去(...
-
Excelで同一セル内に入力されて...
-
特定の文字をが含まれたセルを...
-
エクセルでセル内の一部分だけ...
-
エクセルで「ー」(ハイフン)と...
-
excelで可視セルのみ置換
-
エクセルで「4」「9」抜けの...
-
エクセルでの複数セルのコピー...
-
Excelのアポストロフィーの削除
-
エクセルでセル内の一部を一括...
-
Excel で色付き文字への置換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelからテキストへのコ...
-
エクセルのセルの中の,よりも前...
-
Excelで、半角スペースをTABに...
-
Excelの空文字セルの削除方法を...
-
Excelの入力済みセルに一括で、...
-
excelで可視セルのみ置換
-
【エクセル】ピボットテーブル...
-
小数点を消す方法
-
置換機能を使わずに先頭に「'」...
-
Excelのmatch関数エラー原因が...
-
エクセルでセル内の一部分だけ...
-
エクセルの関数で、記号などを...
-
エクセルでスペースの記号を表...
-
エクセルの表ををメモ帳などに...
-
エクセルでセル内の一部を一括...
-
企業名簿で(株)や(有)を無視し...
-
別シートのリストから置換する方法
-
Excelのシートにある1行...
おすすめ情報