Excel VBA質問箱 IV

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

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


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

6343 / 76734

←次へ　｜　前へ→


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

γ - 14/8/15(金) 18:13 -


	引用なし

	パスワード

マクロ記録はご存じないのですか？
作業内容がわかっているなら、そのマクロ記録を活かすことができますよ。
下記のコードもそうしたことを元にしています。

すでにkanabunさんから擬似コードの提示がありました。
ですので、蛇足になりますが、
一部にReplaceメソッドにこだわったものを示しておきます。

Sub test2()
　　Dim ws1　　 As Worksheet
　　Dim ws2　　 As Worksheet
　　Dim myRange As Range
　　Dim r　　　 As Range
　　Dim rr　　　As Range
　　Dim repStr　As String
　　Dim p　　　 As Long

　　Set ws1 = Worksheets("Sheet1")
　　Set ws2 = Worksheets("Sheet2")
　　Set myRange = ws2.Range("C1", ws2.Range("C1").End(xlDown))

　　For Each r In ws1.Range("A1", ws1.Range("A1").End(xlDown))
　　　　repStr = r.Offset(0, 1).Value
　　　　myRange.Replace What:=r.Value, Replacement:=repStr, _
　　　　　　 LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
　　　　　　 SearchFormat:=False, ReplaceFormat:=False
　　Next

　　' 色をつけます。
　　For Each r In ws1.Range("A1", ws1.Range("A1").End(xlDown))
　　　　repStr = r.Offset(0, 1).Value
　　　　For Each rr In myRange
　　　　　　p = InStr(rr.Value, repStr)
　　　　　　If p > 0 Then
　　　　　　　　rr.Characters(Start:=p, Length:=Len(repStr)).Font.Color = -16776961
　　　　　　End If
　　　　Next
　　Next
End Sub

6 hits

▼

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