200여개 정도의 여러 엑셀 파일에서 특정 컬럼 데이터를 추출하여 새로운 파일로 요약하는 방법

200개 정도의 엑셀 파일에서 특정 열을 추출하여 새로운 파일로 요약하는 방법

엑셀 실행 후 Alt를 누른 상태에서 f11, i, m을 차례로 누르세요

아래 코드를 붙여넣고 필요에 따라 수정한 후 f5를 눌러 현재 워크시트에 요약 결과를 가져옵니다.

하위 테스트()

c = 배열(1, 3, 5, 7, 8)

p = "d: 요약 파일이 있는 디렉터리" '실제 상황에 맞춰 수정하세요. 마지막 내용을 놓치지 않도록 주의하세요

f = Dir(p & "*.xlsx")

Set ns = ActiveSheet

f까지 하세요 = ""

Set wb = Workbooks.Open(p & f)

For i = 0에서 4

n = n + 1

ns.Cells(2, n).Resize(144).Value = wb.Sheets("Room 1").Cells(2, c).Resize(144).Value

다음

wb.닫기 거짓

f = 디렉터리

루프

끝 서브

여러 엑셀 테이블에서 동일한 형식의 데이터 추출

주인님, 당신이 하고 있는 일이 가능하다고 생각합니다. 스님은 감히 거짓말을 하지 않고, 저는 스님이 아니더라도 감히 거짓말을 할 수 없습니다!

이 기회를 포기하고 싶지 않다면 꼭 한번 해보고 싶습니다. 안녕하세요 메시지를 남겨주세요.

정답: lxlzmh2002 - 대마법사 레벨 8 2009-8-19 04:40

================================================ === =========================

소유자님, 오늘 여러 테이블을 병합하기 위한 VBA 프로그램 작성을 도왔습니다. 갑자기 비슷한 게시물을 본 것이 생각나서 귀하의 게시물을 찾아 다시 답변해 드리겠습니다.

VBA 코드는 다음과 같습니다.

Dim sht As Worksheet

Dim rs as long, js as long, ds as long

Dim i를 정수로

오류 발생 시 다음 재개

Set sht = 시트("요약")

Err.Number = 0이면

시트("요약").선택

ActiveSheet.Range(＂A1＂).CurrentRegion.ClearContents

그밖에

Sheets.Add before:=Sheets(1)

ActiveSheet.Name = "요약"

끝나면

시트(2).Range(＂1:1＂).복사 시트(＂요약＂).Range(＂A1＂)

For i = Sheets.Count에 2

ds = Sheets("요약").Range("A65536").End(xlUp).Row + 1

rs = Sheets(i).Range("A65536").End(xlUp).Row

js = Sheets(i).Range("A1").End(xlToRight).Column

시트 포함(i)

.선택

.Range(Cells(2, 1), Cells(rs, js)).Copy Sheets("요약").Cells(ds, 1)

끝

다음

시트("요약").선택

위 코드는 다음과 같이 사용됩니다.

매크로 기록: 메뉴 "도구"->매크로->매크로 기록)-->"매크로 이름" 필드에 매크로 이름 지정->단축키 설정, "단축키" 아래에 문자 입력-->기록 시작 매크로 확인 후.

매크로 편집: 기록을 시작한 후 정지 키를 직접 누른 다음 매크로를 편집할 수 있습니다(도구->매크로->매크로(M)->방금 만든 매크로 선택->화면에서 "편집" 버튼 클릭) 오른쪽--> 매크로 편집 인터페이스 입력 --> Sub XXX와 End Sub 사이의 모든 내용 삭제 --> 위 프로그램 코드 붙여넣기 --> 도구 모음에서 "저장" 버튼 누르기 --> "파일" 메뉴 --> > 닫고 MicorSoft Excel로 돌아갑니다

매크로 실행: 방금 설정한 단축키(Ctrl+해당 문자)를 누르거나, 창에서 메뉴 "도구"-->매크로-->매크로(M)를 통해 매크로 이름을 선택하고-->"실행"을 누릅니다. " 버튼을 눌러 매크로를 실행합니다.

================================================ === ===================

이 VBA 코드의 기능 설명:

1. VBA 코드를 실행하면 "Summary"라는 워크시트가 추가됩니다.

2. sheet1의 첫 번째 행(sheet1이라고 부르는 것은 의미가 없으며 프로그램이 자동으로 이름을 인식함)을 "요약" 테이블의 첫 번째 행으로 사용합니다.

3. 그런 다음 "요약" 표를 제외하고 워크시트의 두 번째 행부터 시작하는 모든 행과 열을 추가 방식으로 "요약" 표에 추가합니다(일반적으로 첫 번째 행이 제목으로 간주됩니다).

4. 추가 과정은 복사하여 붙여넣는 것과 동일하지만, 수동으로 복사하여 붙여넣는 것보다 훨씬 빠르다고 할 수 있습니다. 그리고 단축키를 이용해 한 번 실행하면 모든 워크시트가 한 번 요약됩니다.

해보시면 바로 작동하는지 아닌지 알 수 있습니다. 이 코드 사용에 대해 궁금한 점이 있으면 안녕하세요~~~

위 내용은 200여개 정도의 여러 엑셀 파일에서 특정 컬럼 데이터를 추출하여 새로운 파일로 요약하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!