당신은 질문을받지 않습니다. 한 번에 너무 많은 것을 요구했고 문제를 해결하는 방법을 최소한으로 이해하지 못했습니다. 우리는 당신이 당신을 위해 작성하지 코드를 개선하는 데 도움이 여기 있습니다.
1, 2, 3, ... N 단계로 전체 문제를 해결하십시오. 1 단계, 1 단계 및 2 단계, 1 단계, 2 단계 및 3 단계를 수행하는 매크로를 작성하십시오. X 단계에서 문제가 발생하면 X 단계에 대해 묻고 예상 한대로 작동하지 않는 코드를 표시하십시오.
EDIT 내 원래의 대답에서 나는 더 이상 알지 못하면서 3 단계 이상 나아갈 수 있다고 말했다. 모든 N1-1, N1-2 및 N1-3 워크 시트를 단일 워크 시트에 결합하거나 3 개의 별도 워크 시트를 갖기를 원하십니까? 나중에 워크 시트 이름이 모호하면 더 멀리 갈 수 있다는 것을 깨달았습니다. 당신의 문제에 대한
내 단계 :
- 관심있는 통합 문서의 목록을 만듭니다.
- 시퀀스가 중요한 경우 해당 시퀀스가 올바른 시퀀스입니까? 예 및 아니오 인 경우 목록을 정렬하십시오.
- 통합 된 데이터를받을 준비가 된 통합 문서 컬렉션에 빈 통합 문서를 추가하십시오.
- 필요에 따라 worksheeet "Sheet1"및 다른 워크 시트의 이름을 바꿉니다.
- 루프 통합 문서의 [분류] 목록, 각 통합 문서를 열고 대상 워크 시트에 소스에서 필요한 정보를 복사하고 1 단계의 경우 통합 문서
을 폐쇄을 통해, 당신도 디렉터리 $ 함수가 필요합니다 또는 폴더 개체의 Files 속성 Visual Basic 도움말을 사용하여 찾을 수 있어야합니다. Dir $는 이전 함수이므로 이해하기가 쉽습니다. 폴더 개체와 해당 속성 (예 : 파일)은보다 유연하고 완벽하지만 이해하기가 어려울 수 있습니다. 참고 : Dir과 Dir $는 동일하게 보이지만 Dir $는 약간 더 효율적입니다.
각 통합 문서 이름을 가져오고 Debug.Print FileName을 사용하여 원하는 통합 문서가 있음을 증명하십시오. 1 단계 코드가 작동하지 않으면 질문을하십시오.
목록을 정렬해야하는 경우 "excel vba sort array"로 검색하십시오.
"excel vba 통합 문서 모음에 빈 통합 문서 추가"를 다음으로 찾으십시오.
5 단계의 경우 Copy statement (RngSource.Copy Destination := RngDestination)을 사용해야합니다. 소스 범위의 크기를 확인하고 RngSource를 지정해야합니다. 대상 범위는 같은 크기이지만 첫 번째 행은 사용 된 마지막 행보다 하나 더 많을 것이고 첫 번째 열은 2가 아니므로 1 열을 파일 이름의 날짜로 채울 수 있습니다.
아이디어를 얻길 바랍니다. 단계가 충분히 작고 충분히 정의가 잘되어 있으면 성장 매크로에 추가 할 적절한 코드를 찾는 데 어려움이 없어야합니다. 어려움에 처한 경우 작은 질문은 일반적으로 도움이됩니다.
시도한 코드가 있습니까? 그 결과는 무엇입니까? – thunderblaster