행 수 매크로를 기반으로 셀 복사

Question

두 개의 통합 문서가 있습니다. 통합 문서 1 (이 "행 개수"라고 함)에서 행 개수를 취한 다음 통합 문서 2의 첫 번째 행을 "행 개수"의 행 수만큼 복사해야합니다.

통합 문서 2는 세포에서 방정식의 시리즈를 가지고 있으며, 통합 문서 1.

에서 데이터를 끌어 템플릿입니다 이것은 잘못이다, 그러나 희망 아이디어 레이아웃 :

I=WORKBOOK1.Worksheets("Sheet1").Range("A1",Range("A2").End(xlDown)).Rows.Count 
    WORKBOOK2.Worksheets("Sheet1")Range("C1").Select 
    Range(Selection, ("C1:CI")).Select 

Answer 1

확실하지를 이것이 당신을 도울 수 있다면.

Sub Macro1() 


    Sheets("Sheet2").Select 
    Range("C3:L3").Select 
    Selection.Copy 
    Sheets("Sheet1").Select 
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select 
    ActiveSheet.Paste 

End Sub 

1. 선택 시트 2
2. 는
3. 는
4. 는
5. 이 가능한 다음 행으로 이동을 선택 시트 1이 this answer
에서 사용 (아래에서 위로가는) 선택을 복사 필요한 범위를 선택
6. 붙여 넣기 내용을 붙여 넣으십시오.

Answer 2

사용이 :

Sub main() 
    With Workbooks("Wb1Name").Worksheets("Sheet1") 
     Workbooks("Wb2Name").Worksheets("Sheet1").Rows(1).Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1) 
    End With 
End Sub 

그냥 "Wb1Name"과 실제 "통합 문서 1"을 "Wb2Name"와 "통합 문서 2"통합 문서 이름

변경