vba - Excel宏没有找到下一个空行，只是覆盖最后一个

Question

我有一个带有宏的 excel 电子表格，可以将详细信息从表单输入到下一个空行。由于某种原因，今天刚刚写完最后一个空行。

我不知道为什么。这是代码片段。

'1. Find first empty row in appropriate sheet
        If optActivity = True Then
            Activity.Activate
            RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 1
        ElseIf optEMP = True Then
            EMP.Activate
            RowNum = WorksheetFunction.CountA(Range("EMP_Clubs")) + 1
    End If

他们 EMP 电子表格工作正常，只是不是活动之一。任何人都知道，活动可以达到最大吗？

答：这似乎解决了更改此行的问题

RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 1

对此

RowNum = WorksheetFunction.CountA(Range("Activity_Clubs")) + 2

第一条线全年都在工作，直到今天。真的很奇怪。

Answer 1

要获得列中的最后一个空行，最好的方法之一是使用以下方法：

Range("A" & Rows.Count).End(xlUp)

供您使用，试试这个

'1. Find first empty row in appropriate sheet
        If optActivity = True Then
            RowNum = Activity.Range("A" & Rows.Count).End(xlUp).Row + 1
        ElseIf optEMP = True Then
            RowNum = EMP.Range("A" & Rows.Count).End(xlUp).Row + 1
    End If