大村あつしオフィシャルブログ

セルの値を置き換えるときに、次のようなループ処理と条件分岐を行う必要はありません。

    For Each myRange In Selection
        If myRange.Value = “焼津市” Then myRange.Value = “富士市”
    Next myRange

それに、これではセルの値が「焼津市」でなければならず、「静岡県焼津市」のようなセルの値は置き換わりません。

このようなときには、Excelの［置換］コマンドに相当するReplaceメソッドを使います。

次のサンプルは、セルの中の「焼津市」という値を「富士市」に置換していますので、「静岡県焼津市」も「静岡県富士市」に置き換わります。

Sub Sample_083()
    Selection.Replace What:=”焼津市”, Replacement:=”富士市”, MatchByte:=False
End Sub

→　最初へ　　　　　 →　次へ

毎日30分かかる事務作業のルーティンワーク。
エクセルのマクロなら１秒で！

その作業、VBAid(ブイビーエイド)にお任せしませんか？

『新装改訂版 Excel VBA 本格入門』

～マクロ記録・If文・ループによる日常業務の自動化から高度なアプリケーション開発までVBAのすべてを完全解説～

→　Amazonへ

【読者特典】
〇キーワード当てゲーム

Excel VBAで開発された『ロロナを救え! 』で楽しみながらVBAのキーワードが学べる

 

『いつもの作業を自動化したい人の Excel VBA 1冊目の本』

Excel VBAは、一人ひとりの作業のあり方、いえ、ひいてはあなたの時間の使い方、すなわち「人生すら変えてしまう」パワーがあります！

本書は、Excel VBAを使いこなしたい方がどこでつまずいてしまうのかを徹底的に研究して書き上げた「１冊目」の決定版です！

まずは第１章の立ち読みから(スマホ対応)→　こちら

→　Amazonへ