指定した範囲内から検索した文字列を他の文字列に置換する場合、Replaceメソッドが使われます。きょうは、その基本的な使い方を見てみましょう。

 

Replaceメソッド


 

完全一致置き換え

Sub test()

 

    Dim myFind As String
    Dim myRpl As String

 

    myFind = "エクセル"
    myRpl = "EXCEL"

 

  ’エクセルをEXCELに置き換え
    Range("B3:B9").Replace what:=myFind, replacement:=myRpl, lookat:=xlPart

 

End Sub

 

実行結果

 

部分一致置き換え

 

Sub test()

 

    Dim myFind As String
    Dim myRpl As String

 

    myFind = "エクセル"
    myRpl = "EXCEL"

 

    ’エクセルをEXCELに置き換え
    Range("B3:B9").Replace what:=myFind, replacement:=myRpl, lookat:=xlPart

 

End Sub

 

実行結果

 

構文

Range.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

 

引数の説明

引数 説明(内容)
What Excel で検索する文字列を指定
Replacement 置き換える文字列を指定
LookAt xlPart:部分一致セルを検索 
xlWhole:完全一致セルを検索
SearchOrder xlByColumns:列の下方向で移動して検索する
xlByRows:行の横方向で移動して検索する
MatchCase True:大文字と小文字を区別
False:大文字と小文字区別しない(既定)
MatchByte True:半角と全角を区別
False:半角と全角を区別しない(既定)
SearchFormat 検索書式を指定
ReplaceFormat 置換書式を指定

 

 

関連記事 

 

VBA セル罫線操作(罫線太さや色)

VBA セル罫線操作(罫線種類)

VBA セル罫線操作(罫線位置)

VBA セルの操作 文字書体設定

VBA セルの操作 もじ色の設定

VBA セルの操作 背景色の設定

VBA セルの操作 値の代入

VBA始める前の準備

VBAとは?

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る