Excel VBA質問箱 IV

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

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


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

6427 / 76807

←次へ　｜　前へ→


	【75981】Re:A列B列シートの文字をみて別シートのC列を置換

γ - 14/8/15(金) 8:31 -


	引用なし

	パスワード

横から失礼します。

C列に限定した、書式を指定した置換の動作をマクロ記録するとこうなります。
Sub Macro1()
　　Columns("C:C").Select
　　With Application.ReplaceFormat.Font
　　　　.Subscript = False
　　　　.Color = 255
　　　　.TintAndShade = 0
　　End With
　　Selection.Replace What:="R", Replacement:="りんご", LookAt:=xlWhole, _
　　　　SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
　　　　ReplaceFormat:=True
End Sub

あとは、Sheet1の置換組み合わせについて、繰り返しをすればよい、
ことになります。
例えば、こんな風です。
Sub test()
　　Dim ws1 As Worksheet
　　Dim ws2 As Worksheet
　　Dim r　 As Range

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

　　Application.ReplaceFormat.Font.Color = 255　'置換後のフォント色を赤に設定

　　For Each r In ws1.Range("A1", ws1.Range("A1").End(xlDown))
　　　　ws2.Columns("C").Replace What:=r.Value, Replacement:=r.Offset(0, 1).Value, _
　　　　　　 LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
　　　　　　 SearchFormat:=False, ReplaceFormat:=True
　　Next
End Sub
# 少し前から書式指定の置換はあったと思いますが、
# Versionの関係でうまくいかなければ失礼します。
# Versionを書いたほうがいいですよ。

2 hits

▼

【75979】A列B列シートの文字をみて別シートのC列を置換 daisuke 14/8/14(木) 23:43