0

範囲内のデータを含む最後の行を見つけたい。たとえば、範囲内の最後の空の行 ("A15:A42") を見つけたいとします。A42 を超えてはなりません。どんな助けでも。

lRow = Range("C15:C42").End(xlDown).Row   ....it goes beyond C42..

コメントからコピーされた IMP 情報

はい..C43からの他のデータがあります... – user2703472 3時間前

4

1 に答える 1

4

Is this what you are trying? I am assuming that C15 has data.

Option Explicit

Sub sample()
    Dim ws As Worksheet
    Dim rng As Range
    Dim LRow As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        Set rng = .Range("C15:C42")

        LRow = .Range(Split(.Cells(, rng.Column).Address, "$")(1) & _
               (rng.Row + rng.Rows.Count)).End(xlUp).Row

        Debug.Print LRow
    End With
End Sub

ScreenShot:

ここに画像の説明を入力

于 2013-11-06T13:12:12.493 に答える