代碼如下：用到數(shù)組寫入，速度快。先將單元格區(qū)域?qū)懭霐?shù)組，再導(dǎo)出到每個(gè)新建的表格。Subd()arr=ActiveSheet.Range("b1:u"&ActiveSheet.[b65536].End(3).Row)Fora=2ToUBound(arr,2)Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name=a-1Worksheets(Worksheets.Count).Range("d1").Resize(UBound(arr,1),1)=WorksheetFunction.Index(arr,0,a)NextEndSub有個(gè)index函數(shù)的用法，用于獲得二維數(shù)組其中的一維。不會(huì)的話直接問我，不嫌麻煩(???_??)?