プロが教えるわが家の防犯対策術!

いつもお世話になります

多分、簡単ことと思いますが
分からないので教えてください

今、Cells,Find で文字を検索し二つ見つかりました
見つかったセルを
Set Target = Union(Target, FoundCell)
でセットしたのですが

二つ目のアドレスの見方が分かりません
Target.Count は 2です
一つ目のセルアドレスは Target.Row で出てきますが
二つ目はどのようなステートメントになるのですか?

以上、よろしくお願い申し上げます

A 回答 (1件)

For Eachを使用して、Target内のセルを一つずつ読み取りましょう。




Sub Sample()
  Dim Target As Range, FoundCell As Range
  Dim r As Range
  
  Set Target = Range("A1")
  Set FoundCell = Range("A3")
  Set Target = Union(Target, FoundCell)
  
  MsgBox Target.Count
  For Each r In Target
    MsgBox r.Row
  Next
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます
出来ました

これからもよろしくお願いいたします

お礼日時:2017/05/26 18:26

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!