エクセルVBAコードで可変行セルでFindで検索したいです 。

Question

エクセルVBAで可変行セルで.Findを使いたいです。
以下のコード(問題なし)はXに最終行のセル値を代入して次に'Range変換でXを使っていますがXを使わず一本のコードにまとめることはできるでしょうか?
.End(xlUp).Rowプロパティに.Addressは連結できないとダメもとで書いたのですが
やっぱりオブジェクト定義エラーになります。
列も変数によって動的に移動したいのでCell()にしました。
どうぞご指導のほどよろしくお願いします。

Function Sheet2b_Find_chenge(Find_cost_CNG As String, New_unit_price As String)
Dim x As Integer
Dim c As Range
Dim Item_number_column As Integer
Const End_column = 103
Const first_Row = 4

For Item_number_column = 4 To 143 Step 11
'前もってXに最終行を取得
x = Sheets("Sheet2").Cells(Rows.Count, Item_number_column).End(xlUp).Row
'Range変換
With Sheets("Sheet2").Range(Cells(first_Row, Item_number_column).Address, Cells(x, Item_number_column).Address)
'検索
Set c = .Find(Find_cost_CNG, LookIn:=xlValues)

処理---------------------------------

End With
End Function
Next Item_number_column

'以下のコードでは.End(xlUp).Rowプロパティを
'指定済みなので.Addressを付加できません。
'以下試したコード
' With Sheets("Sheet2").Range(Cells(first_Row, Item_number_column).Address, Cells(Rows.Count, Item_number_column).End(xlUp).Row.Address)

Answer 1

下記のように .Row をつけなければエラーにはなりません。(そもそも .Address も必要ないですけどね)

With Sheets("Sheet2").Range(Cells(first_Row, Item_number_column).Address, Cells(Rows.Count, Item_number_column).End(xlUp).Address)

ただし、Cells(Rows.Count, Item_number_column)というようにシート指定を省略すると、 アクティブシートが対象になるので、アクティブシートがSheet2以外だと、エラーになったり、想定外の結果になる恐れがあります。

ここは、ちゃんとSheets("Sheet2").Cells(Rows.Count, Item_number_column)というようにシート指定するようにすべきです。ただ、そうするとコードが長くなり読みづらいので、例えば下記のように記述するといいでしょう。

    With Sheets("Sheet2")
        With .Range(.Cells(first_Row, Item_number_column), .Cells(.Rows.Count, Item_number_column).End(xlUp))
        '検索
        Set c = targetRng.Find(Find_cost_CNG, LookIn:=xlValues)

        End With
    End With

あるいは、

    With Sheets("Sheet2")
        Dim targetRng As Range
        Set targetRng = .Range(.Cells(first_Row, Item_number_column), .Cells(.Rows.Count, Item_number_column).End(xlUp))
        '検索
        Set c = targetRng.Find(Find_cost_CNG, LookIn:=xlValues)

    End With

Comments

[ABBA]

hatena19様
ご指導ありがとうございました。
.Row は省略できるんですね。
ちゃんと、動作しました。
助かりました!