마지막 행과 열까지 데이터 복사

Question

여러 통합 문서의 모든 데이터를 단일 통합 문서로 복사하여 다른 워크 시트에 배포하려고합니다.

값이있는 마지막 행 및 열까지 데이터를 자동으로 선택하고 범위를 선언하는 대신 복사하려면 아래 코드를 어떻게 변경해야합니까?

For i = 16 To ws.Range("I" & Rows.Count).End(xlUp).Row 'Sheet1 is MasterSheet 
    File = ws.Range("C" & i) & ws.Range("I" & i) 'File Location and Excel Name 
    Copy = ws.Range("U" & i) & ":" & ws.Range("V" & i) 'Range to be copied 
    Workbooks.Open File, 0, 1 'Open File as Read Only 
    Range(Copy).Copy 
    ThisWorkbook.Sheets(ws.Range("W" & i).Value).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial 12 'Paste as Values only 
    ActiveWorkbook.Close False 'Close WorkBook without saving 
    Selection.Value = Selection.FormulaR1C1 'Force F2 and Enter selected range 

    Range("A1").Select 

Next i 

Answer 1

당신의 솔루션은 잘 작동합니다. 얼마 전이 주제에 대해 많은 연구를 했었습니다.이 방법이 가장 빠르고 간단한 방법이라는 것을 알았습니다. 저는 Excel이 이러한 것들로 매우 훌륭하다고 생각하지 않습니다. 그래서 저는 항상 기본을 고수하려고 노력해 왔습니다.

그냥 두 의견 :이 이제까지이 사용 된 셀 범위를 반환하기 때문에

이

• 내가 .UsedRange.Copy를 사용하지 않을 것입니다.

• 가능한 한 .select을 사용하지 마십시오. 당신은 How to avoid using Select in Excel VBA