在Excel VBA中找到给定行号后面的第一个空行

Question

我需要在给定的行号后找到 第一个空行号。

请查看下面的图片

例如：假设，我当前的行号是6，那么我的输出应该是10。

Answer 1

这样的东西？

function FindFirstEmpty(i as long)

while cells(i,1).value <> ""
    i = i + 1
wend

FindFirstEmpty = i

End function

取决于您如何获得开始的行。

Answer 2

object

你尝试过这样的事吗？

注意：当最后一行为空时，这不会显示。

Answer 3

我使用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

Answer 4

您可以使用.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