[[20041130183340]]　『複数の文字列の置換』（てつ）　ページの最後に飛ぶ

『複数の文字列の置換』（てつ）

こんにちわ。いつもお世話になっています。

今回はデータ中の文字列を置換したいのですが，
それを一度にできるような方法を探しています。
(ちょくちょくシェアウェアで見かけますが)

できればシートに保存しておこなえるようなものがいいのですが。
たとえばBOOK1には住所録
BOOK2のA列に置換前BOOK2のB列に置換後の文字列(置き換えたい文字列)
を入力してBOOK1のｼｰﾄを置換したいのです。

そういうﾌﾘｰｳｴｱｰがあるなら教えていただいてもよろしいでしょうか？

 あまりにも簡単すぎて、フリーソフトにならないような・・・
 以下はマクロのサンプルです。　（Sheet2 が検索キー、sheet1が対象です。）

 Sub sample()
 Dim ws1 As Worksheet, ws2 As Worksheet
 Dim i As Long

    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")

    With ws2
        For i = 2 To .Range("A65536").End(xlUp).Row
            ws1.UsedRange.Replace What:=.Cells(i, 1).Value, _
                 Replacement:=.Cells(i, 2).Value, LookAt:=xlPart
        Next i
    End With 
 End Sub
　
   (INA)

（てつ）
ありがとうございました。
返事を出すの遅くなってすいません。

コメント返信：

[ 一覧(最新更新順) ]

[[20041130183340]] 『複数の文字列の置換』（てつ） ページの最後に飛ぶ

[[20041130183340]]　『複数の文字列の置換』（てつ）　ページの最後に飛ぶ