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 

에 데이터가 열의 마지막 행을 얻기 위해 이것을 사용할 수 있습니다