은 한 장에 여러 워크 시트에서 일치하는 데이터를 복사하는 코드를 작성하는 일

Question

내가 도움을 검색하는 동안을 보냈다에 여러 워크 시트를 복사,하지만 난 여기에 있었다 발견 비슷한했던 단 하나 : Find Match, Copy Row from Sheet1 and Insert Into Sheet2

을

나는 그것을 나의 필요에 맞게 적응 시키려고 노력했다. 그러나 나는 VBA를 잘하지 못하고 내가 원하는 것을 할 수 없었다. 어떤 도움이라도 대단히 감사하겠습니다.

내가 갖고있는 워크 북은 4 개의 워크 시트가 있습니다. Master, FescoMonthly, Schedule 및 FescoData. 이 워크 시트는 고객이 우리에게 보내서 가져올 수 있지만 문제의 일부인 레이아웃을 변경하고 싶지는 않습니다. 모든 워크 시트에서 일치하는 미터 수를 검색하고 특정 행을 Combined이라는 새 워크 시트에 복사하도록 매크로를 지정합니다. 나는 F. 통해 바닥 (현재 1,982 만 더 추가 될 수있다)과 열 (A)에 행 5에서 전체를 복사하는 데 필요한 Master 워크 시트에서

는 ----- 열 A는에서 미터 번호

입니다 FescoMonthly 워크 시트 열 5 (미터 번호)와 기본 워크 시트의 열 A와 동일한 미터 번호를 일치시켜 행 5와 행 A부터 H까지를 복사해야합니다.

Schedule 워크 시트에서 기본 워크 시트의 A 열에 A 열 (미터 번호)을 일치시켜 D 행을 아래쪽으로 그리고 A 열에서 D 열로 복사해야합니다.

FescoData 워크 시트에서 기본 워크 시트의 A 열에 A 열 (미터 번호)을 일치시켜 C 행부터 C 열까지 5 행을 복사해야합니다.

Master과 과 일치하고 복사하는 것을 도와 주실 수 있다면 다른 사람들을 어떻게 수행하는지 알아낼 수 있다고 생각합니다. 제대로 작업했는지 확인할 수 있습니다. 대상 워크 시트에
설정 TRG를 복사 할 데이터가있는 워크 시트에 SHT

Answer 1

세트 열 수에
설정 COLCOUNT는에

Set rng = sht.Range(sht.Cells(5, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount)) 
' start at row 5, then get the last row with data, and then expand to the number of columns 
trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
' find last unused cell in first column, and copy the data there 

(사용 1048576 대신에 65536을 복사합니다 2007 또는 나중에 엑셀)