Excel 매크로, 병합 시트

Question

5 시트가 들어있는 Excel 파일이 있습니다. 첫 번째 시트에는 A1에서 A4 셀까지의 하이퍼 링크가 포함되어 있으며 통합 문서의 각 시트 4 개를 가리키는 이름이 있습니다. while 루프로 구성되어야하는 vba 함수를 작성해야합니다. 시트 1의 각 셀을 반복하고, 시트 1의 첫 번째 셀을 읽은 다음 연결된 시트로 이동하여 모든 데이터를 복사하고 다른 시트에 넣어야합니다. 통합 문서를 다시 한 번 시트 1의 다음 셀로 이동하여 데이터를 복사하고 새 통합 문서에 데이터를 첨부하고 빈 셀을 찾을 때까지 프로세스를 반복합니다. VBA 프로그래밍을 처음 사용하면서 샘플을 제공해주십시오. 미리 감사드립니다.

Answer 1

설명의 목적으로, OP가 원래 샘플을 요구했기 때문에. 이것은 통합 문서의 첫 번째 시트에 정의 된 4 개의 셀을 취하여 두 번째 및 세 번째 시트에서 선택된 셀의 데이터를 수집하여 네 번째 시트에 붙여 넣습니다.

첫 번째 시트 :

 A 
1 Sheet2!C8 (these are all hyperlinks) 
2 Sheet2!G15 
3 Sheet3!C10 
4 Sheet3!D13 

매크로 코드 :

Sub Test2() 
    Dim cell As Range 
    Dim sel As Range 
    Dim index As Integer 
    index = 1 
    Set sel = Range(Cells(1, 1), Cells(1.1).End(xlDown)) 
    For Each cell In sel    
     cell.Hyperlinks(1).Follow 
     ActiveCell.Copy 
     Sheets(4).Select 
     Range("A" & index).PasteSpecial 
     index = index + 1 
    Next 

End Sub 

분명히

그것의 많은이 상황에 하드 코딩, 나는 더있다 확신 효과적인 방법.