Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49286 / 76732 ←次へ | 前へ→

【32362】Re:文字置き換え
回答  Statis  - 05/12/13(火) 11:33 -

引用なし
パスワード
   こんにちは

置き換えで作ってみました。
該当のシートをアクティブにしてから実行して下さい。
A列を対象としています。


Sub Test()

Dim Da As Variant, Da1 As Variant, i As Long

Da = Array(1, 2, 3, 4)
Da1 = Array("静岡", "岡山", "埼玉", "青森")

Application.ScreenUpdating = False
For i = 0 To UBound(Da)
  Columns(1).Replace What:=Da(i), Replacement:=Da1(i), LookAt:=xlWhole, _
              SearchOrder:=xlByColumns, MatchCase:=True
Next i
Application.ScreenUpdating = True

Erase Da: Erase Da1

End Sub
1 hits

【32349】文字置き換え ZEBRA 05/12/13(火) 9:54 質問
【32350】Re:文字置き換え ちくたく 05/12/13(火) 10:02 発言
【32356】Re:文字置き換え ZEBRA 05/12/13(火) 11:06 質問
【32362】Re:文字置き換え Statis 05/12/13(火) 11:33 回答
【32363】Re:文字置き換え ZEBRA 05/12/13(火) 11:50 お礼

49286 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free