最初に空の行番号が指定された行番号の後に見つかります。Excel VBAで指定された行番号の後の最初の空行を見つけます
例えばため
下の画像を確認してください:想定し、私の現在の行番号が6で、その後、私の出力は10
最初に空の行番号が指定された行番号の後に見つかります。Excel VBAで指定された行番号の後の最初の空行を見つけます
例えばため
下の画像を確認してください:想定し、私の現在の行番号が6で、その後、私の出力は10
CountAを使用して行全体が空であるかどうかを確認します。
Function FirstEmtpyRow(startRow As Long) As Long
Do
startRow = startRow + 1
If startRow = rpws.Count Then Exit Function
Loop Until WorksheetFunction.CountA(Rows(startRow)) = 0
FirstEmtpyRow = startRow
End Function
Dim startRow As Long
Dim i As Long
Dim lastRow As Long
Dim sh As Worksheet
startRow = 2 'Set first row to check
Set sh = ThisWorkbook.Worksheets("Sheet1")
lastRow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
For i = startRow To lastRow
If sh.Cells(i, 1) = "" Then
MsgBox "First empty row: " & i
Exit For
End If
Next i
する必要がありますが、このような何かをしようとしたことがありますか?
注:最後の行が空の場合は表示されません。
これは何か?
function FindFirstEmpty(i as long)
while cells(i,1).value <> ""
i = i + 1
wend
FindFirstEmpty = i
End function
どのように行を始めるかによって異なります。
あなたは.END(xlDown)を使用することができますが、すぐに次のセルが空白ではないか、あなたはそれをスキップできることに注意する必要があります。
dim rw as long, nrw as long
rw = 6
with worksheets("sheet1")
with .cells(rw, "A")
if IsEmpty(.Offset(1, 0)) then
nrw = rw + 1
else
nrw = .end(xldown).offset(1, 0).row
end if
end with
end with
debug.print nrw