wb=activewindow.caption
path = thisworkbook.path
strfname = dir(path & "\*.xlsx")
workbooks.open(path & "\" & strfname)
range("a1").currentregion.advancedfilter
action:=xlfiltercopy, _
criteriarange:=workbooks(wb).worksheets("sheet1").range("y1:y2"), _
copytorange:=workbooks(wb).worksheets("sheet1").range("z1:ac1"), _
unique:=fale
workbooks(strfname).close false
첫댓글 currentregion은 a1 선택 후 ctrl + a 와 같은기능