[[20041130183340]] 『複数の文字列の置換』(てつ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『複数の文字列の置換』(てつ)

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

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

できればシートに保存しておこなえるようなものがいいのですが。
たとえば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)  

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.