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 質問
【75980】Re:A列B列シートの文字をみて別シートのC列... kanabun 14/8/15(金) 0:08 発言
【75981】Re:A列B列シートの文字をみて別シートのC列... γ 14/8/15(金) 8:31 発言
【75982】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 13:03 お礼
【75984】Re:A列B列シートの文字をみて別シートのC列... kanabun 14/8/15(金) 14:52 発言
【75985】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 15:37 質問
【75987】Re:A列B列シートの文字をみて別シートのC列... kanabun 14/8/15(金) 17:39 発言
【75991】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 18:04 質問
【75994】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 18:25 お礼
【75983】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 13:10 お礼
【75986】Re:A列B列シートの文字をみて別シートのC列... γ 14/8/15(金) 17:00 発言
【75988】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 17:39 質問
【75989】Re:A列B列シートの文字をみて別シートのC列... γ 14/8/15(金) 17:48 発言
【75990】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 18:01 質問
【75992】Re:A列B列シートの文字をみて別シートのC列... γ 14/8/15(金) 18:13 発言
【75993】Re:A列B列シートの文字をみて別シートのC列... daisuke 14/8/15(金) 18:23 お礼

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