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

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

1 个答案: