Excel 2007 데이터 수집

Question

a 150 개 이상의 워크 시트가있는 Excel 2007 통합 문서가 있고 모든 워크 시트에서 동일한 셀의 데이터를 선택하고 데이터가 들어있는 셀의 데이터 (모든 텍스트 임)를 복사하려고합니다. ; 열에 나열된 데이터가 포함 된 별도의 워크 시트로 이동하십시오.

Answer 1

다음과 같은 VBA를 사용할 수 있습니다

은 해당 통합 문서 내에서 동일한 워크 시트의 경우입니다

Dim WriteCell as Range 
Set WriteCell = Sheets("New Sheet").Range("A2") 

Dim MySheet as Worksheet 
For Each MySheet In ThisWorkbook.Worksheets 
    If MySheet.Range("B2").Value <> "" Then 
     WriteCell.Value = MySheet.Range("B2").Value 
     WriteCell.Offset(0, -1).Value = MySheet.Name 
     Set WriteCell = WriteCell.Offset(1,0) 
    End If 
Next 

.

이

Workbooks.Open File:= "C:\MyBook.xlsx" 
For Each MySheet in ActiveWorkbook.Worksheets 

이 그냥 값을 테스트하고, 열 등의 워크 시트 이름과 워크 시트 셀 값을 생성하는 워크 시트의 모든 반복합니다 : 당신이 다른 통합 문서 싶은 경우에,이 함께 For Each 라인을 교체 .