vba - Excel 宏 - 合并工作簿，查找特定列中的最后一行

Question

希望有人可以帮助我。我正在尝试将多个工作簿中工作表中的数据合并为一个。我设法得到一些工作，但我需要修改下面的代码。我需要根据一组列而不是所有列来搜索要复制的最后一行。如何修改以下代码？感谢任何帮助，谢谢！

    Private Function LastRow() As Long
        LastRow = 0
        If WorksheetFunction.CountA(Cells) > 0 Then
            'Search for any entry, by searching backwards by Rows.
            LastRow = Cells.Find(What:="*", After:=[a1], _
                  SearchOrder:=xlByRows, _
                  SearchDirection:=xlPrevious).Row
        End If
    End Function

Answer 1

您可以使用它来获取包含数据的列的最后一行

Dim LastRowOnColumn2 as Long
LastRowOnColumn2 = Activesheet.Cells(Activesheet.Rows.Count, 2).End(xlUp).Row