1.function 多表合并(){p=ThisWorkbook.Path+"\";p=p.replace(/\/g,"/");f=Dir(p+"*.xls*");let tb=ThisWorkbooklet tsh=tb.Sheets.Item(1);m=tb.Name;i=1t=1while(f!==""){if(f!==m&&f.indexOf("~#34;)==-1){let wb=Workbooks.Open(p+f);let wsh=wb.Sheets.Item(1)n=tsh.Range("a65535").End(3).Row+1;n1=wsh.Range("a65535").End(3).Row;if(i==1){wsh.Rows("1:"+n1).Copy(tsh.Range("a1"))}else{wsh.Rows((t+1)+":"+n1).Copy(tsh.Range("a"+n))}wb.Close()i++}try{f=Dir()}catch{break}}}