Find を使用した文字の検索

Question

表の項目の列番号を取得する為以下のコードを作成しました。

6行目の9列目から始まる項目で、6行目から8行目までがセルの結合しています。
変数「zyan」と同じ項目を探し出し、列数を求めるのが目的なのですが、「Set Rtitle = Range・・・」の所で(Northing)となってしまいます。

このコードは結合したセルには使えないのでしょうか？
アドバイスや解決策をいただきたく質問いたしました。
よろしくお願いします。

Dim Rtitle As Range
Dim Coltitle As Long
Dim Ecol As Long

Ecol = Cells(6, Columns.Count).End(xlToLeft).Column

Set Rtitle = Range(Cells(6,9),Cells(8,Ecol)).Find(zyan)'ここがNorthingです！

Coltitle = Rtitle .column

Comments

[退会済みユーザー]

Ecolは期待する列数を返しているでしょうか。
たとえばコード中のEcolを10という固定値に変え、ためしに6行目・8列目（結合しているので6～8行目・8列目）に変数zyanと等しい値を入れてテストしてみた場合でも、正しく動作しないのでしょうか。

Answer 1

Sub test()
    Dim rngLeft As Range
    Dim rngRight As Range
    Dim rngfound As Range
        
    Set rngLeft = Range("I6")
    Set rngRight = Cells(6, Columns.Count).End(xlToLeft)
    Set rngfound = Application.Range(rngLeft, rngRight).Find("e")
    
    If rngfound Is Nothing Then
        MsgBox "見つかりませんでした。"
    Else
        MsgBox rngfound.Address
    End If
End Sub

6行目から8行目までがセルの結合しています。

こういう場合は、6行目だけで検索します。
セルが結合されている場合は、その結合範囲の左上のセル以外は無効になっているので、
怪しい挙動をするときがあります。

上記によると、SearchOrder:=xlByColumnsを追加するとうまくいくようです。

なるほど、手動で確認しました＾＾面白いくせですね。
FindNextの時に応用できるかも。。。。

Findメソッドの引数は省略しない方が無難です。
省略していると、省略した部分はエクセル君がその時々で判断するので、
意図しない挙動をするときがあります。

Comments

[ice930]

左上のセルだけで良かったんですね！！
勉強になります！

Answer 2

『結合セルに対してのFind検索について』（とあもん） エクセル Excel [エクセルの学校]

上記によると、SearchOrder:=xlByColumnsを追加するとうまくいくようです。

Set Rtitle = Range(Cells(6, 9), Cells(9, Ecol)).Find("aaa", SearchOrder:=xlByColumns)

試してみたらうまくいきました。

Answer 3

結合に対するFindが上手くいかないという情報はよく見かけますが、
検索範囲を全体にして、検索方向を列方向にすると上手くいく、という情報があります。

Cells.Find(What:="検索値", SearchOrder:=xlByRows)

Findメソッドで検索する際にセル結合がある場合

試すとたしかにうまくいくんですが、何故これでうまくいくのかはわからないです。しかも、指定範囲内から探したいなら使えないですね。

ためしに全体ではなく、1列だけ検索範囲を広げてやってみたら、検索できました。(xlByRows指定も無しで)

Set Rtitle = Range(Cells(6, 9), Cells(8, Ecol)).Find("aaa") 'ここがNorthingです！
↓
Set Rtitle = Range(Cells(6, 8), Cells(8, Ecol)).Find("aaa") ' OK

これでやりたい事が実現できるならそれでもいいですが、いまいちFindの動きはよ分からないですし、範囲内のセルをループで回しながらマッチングさせて探すなど、Find以外の解決も考えてみたらどうでしょうか。

Comments

[ice930]

範囲を広げたらうまく行きました！
SearchOrder:=xlByRows　について、今回利用している表では影響無い様子でした。
Findの動き気になりますね・・・。