여러 워크 시트에서 텍스트 값을 반환

Question

나는 여러 워크 시트 (약 30)가있는 통합 문서가 있습니다. 각 시트마다 다른 이름이 있습니다.

셀 B6의 값을 모든 대체 시트 (각 접미사가 "-a")에서 요약 시트로 반환하려고합니다.

어떻게해야합니까?

미리 감사드립니다.

g

Answer 1

사용 VBA 코드 는 테스트하지 :

Sub test() 
A = 1 
For each s in activeworkbook.sheets 
    If right(s.name, 2) = "-a" then 
     With Sheets("summary") 
      .cells(a, "a") = s.name 
      .cells(a, "b") = s.range("b6") 
     End with 
    End if 
Next 
End sub 

잘 실행 시트 탭,보기 코드를 클릭에서 코드를 붙여 메뉴에서 실행하려면.

모두 실행하려면 if 문을 제거하십시오.