[[20200520100805]]　『find next』（たけちゃん）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『find next』（たけちゃん）

質問お願いいたします。

find nextで"計画"の文字列を検索し、ヒットしたセルを記憶したいのですが、
下記コードにどのように記述したらよろしいでしょうか。

Dim rng As Range, tempRng As Range, searchRng As Range
Set searchRng = Range("D:D")

Set rng = searchRng.Find("計画")
Set tempRng = rng
Do While Not rng Is Nothing

    Debug.Print rng.Row

    Set rng = searchRng.FindNext(rng)
        If rng.Address = tempRng.Address Then
        Exit Do
    End If
Loop

よろしくお願いいたします。

＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞

---

http://officetanaka.net/excel/vba/tips/tips123.htm
↑を参考にして、みつかったすべてのセルを【合体】させてから出力したらどうですか？

（もこな２ ） 2020/05/20(水) 10:23

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.