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