Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49289 / 76735

←次へ　｜　前へ→


	【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

0 hits

▼

【32349】文字置き換え ＺＥＢＲＡ 05/12/13(火) 9:54