VBA 여러시트에 있는 데이터 가져오기(검색)

같은 파일 각 시트별 데이터 가져오기

Sub 데이터 가져오기()
dim 시트 as worksheet
dim 찾은셀 as range
dim 기록셀 as range , i as integer


row("7:100").delete shift:=xlup
set 기록셀 =range("b7")


for each 시트 in worksheets

if 시트.name <> activesheet.name then
set 찾은셀 =시트.columns(1).find(what: = range("b3"))
if not 찾은셀 in nothing then
찾은셀. resize(,7).copy 기록셀.offset(i)
i=i+1
end if
end if
next

end sub