這個要寫代碼解決,給你個例子,代碼如下Sub SplitSheet()Dim aa As Stringaa = ActiveSheet.NameFor x = 0 To 9 Sheets.Add After:=ActiveSheet Sheets(aa).[a1].Offset(x * 100, 0).Resize(100, 1).Copy ActiveSheet.[A1:A100]NextEnd Sub在sheet1準備好名單
按ALT+F11將代碼粘貼進去,然後關閉
按ALT+F8,點執行
然後就會自動生成10個表
...這隻是個例子,根據實際情況,代碼可能需要改動,有需要再聯係我