使用VBA在Excel中查找第一个空行有时会导致跳过行

Question

使用此功能时，似乎经常跳过几行并写入第12行而不是第9行，即使这些单元格的内容为空。有什么想法吗？

Function firstBlankRow(ws As Worksheet) As Long
     firstBlankRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End Function

Answer 1

您必须在函数中引用ws：

Function firstBlankRow(ws As Worksheet) As Long
     firstBlankRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End Function

否则，将使用ActiveSheet或代码所在的工作表。