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 

有數據