No.5
- 回答日時:
エクセルの開発のタブで「VisualBasic」を選んで表示させ、標準モジュールを挿入して、次のコードを書いて、実行させると、("a3:m12")/("A3:m12")/("A3:M12")の範囲のすべてのセルの文字列の中の、「g」の文字が「G」に置き換わります。
Sub 置き換える()
Dim TaishoArea As Range
Dim Kasho As Range
Set TaishoArea = Range("a3:m12")
For Each Kasho In TaishoArea
Kasho = Replace(Kasho, "g", "G")
Next
End Sub
「Kasho = Replace(Kasho, "g", "G")」の部分を「Kasho = Replace(Kasho, "桜", "葉桜")」として、実行すると、「夜桜」⇒「夜葉桜」、「桜見物の客」⇒「葉桜見物の客」のように文字が置き換わります。
「Kasho = Replace(Kasho, "g", "G")」の部分を「Kasho = Replace(Kasho, "7", "七")」として、実行すると、7⇒七のように文字が置き換わりますが、数値だった[87654]までが、「8七654」の文字列になってしまいます。
Set TaishoArea = Range("a3:m12")を、「Set TaishoArea = Range("A1:Z3450")」のように広げれば、広範囲のセルを一括して変更できます。
ただし、Set TaishoArea = Range("a3:m12")で指定した範囲のすべてのセルは、元に数式があった場合でも、数式は消えて、エクセルの画面上で見えていた値・文字列として扱われてしまいます。
「数式の場合は、その数式のまま残す」という場合は、下のようにします。
Sub 置き換える()
Dim TaishoArea As Range
Dim Kasho As Range
Set TaishoArea = Range("A1:S45")
For Each Kasho In TaishoArea
If Kasho.HasFormula = False Then
Kasho = Replace(Kasho, "7", "七")
End If
Next
End Sub
この回答へのお礼
お礼日時:2018/04/04 11:01
ご回答ありがとうございます。
すごいですねこんなことが出来るなんてまったく知りませんでした。
置換機能が有効かとは思いますが場合によりこちらを活用したいと思います。
ありがとうございました。たすかりました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセルについて教えてください。 一度入力した文字や数字を誤って削除や変更しないために、削除や変更を 3 2022/10/30 10:36
- Word(ワード) ワードで,特定の文字だけ,字体を一括変換する方法は? 1 2023/04/26 10:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- その他(パソコン・スマホ・電化製品) エクセル作成後のフォントの一括変換できますか?やり方も教えてください。 3 2023/02/26 15:57
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
多数の計算セルに一括で同一の...
-
エクセルで文字の入力がセルの...
-
エクセルのセルの中の,よりも前...
-
Excelからテキストへのコ...
-
小数点を消す方法
-
エクセルでセル内の一部分だけ...
-
Excelのシートにある1行...
-
Excelの入力済みセルに一括で、...
-
企業名簿で(株)や(有)を無視し...
-
【エクセル】ピボットテーブル...
-
Excelで、半角スペースをTABに...
-
Excelのアポストロフィーの削除
-
excelで可視セルのみ置換
-
Excelのmatch関数エラー原因が...
-
エクセルでセル内の一部を一括...
-
Excelの空文字セルの削除方法を...
-
EXCELで"Tab"を"@"に置換したい
-
エクセルで「4」「9」抜けの...
-
置換機能を使わずに先頭に「'」...
-
エクセルで「ー」(ハイフン)と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelのmatch関数エラー原因が...
-
Excelの入力済みセルに一括で、...
-
エクセルのセルの中の,よりも前...
-
Excelからテキストへのコ...
-
excelで可視セルのみ置換
-
置換機能を使わずに先頭に「'」...
-
Excelで、半角スペースをTABに...
-
【エクセル】ピボットテーブル...
-
エクセルでセル内の一部を一括...
-
Excelの空文字セルの削除方法を...
-
Excelのシートにある1行...
-
エクセルの表ををメモ帳などに...
-
小数点を消す方法
-
Excelで電話番号などの-(ハイ...
-
Excelのアポストロフィーの削除
-
Excel "~区"のみを削除したい
-
エクセルでセル内の一部分だけ...
-
一括でダブルクリックした状態...
おすすめ情報