Excelmacros没有find下一个空行，只是覆盖最后一个

我有一个Excel的电子表格与macros从窗体input细节到下一个空行。 出于某种原因，今天它只是在写最后一个空行。

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

'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