[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数の文字列の置換』(てつ)
こんにちわ。いつもお世話になっています。
今回はデータ中の文字列を置換したいのですが,
それを一度にできるような方法を探しています。
(ちょくちょくシェアウェアで見かけますが)
できればシートに保存しておこなえるようなものがいいのですが。
たとえば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.