範囲内のデータを含む最後の行を見つけたい。たとえば、範囲内の最後の空の行 ("A15:A42") を見つけたいとします。A42 を超えてはなりません。どんな助けでも。
lRow = Range("C15:C42").End(xlDown).Row ....it goes beyond C42..
コメントからコピーされた IMP 情報
はい..C43からの他のデータがあります... – user2703472 3時間前
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: