怎樣把excel中的一個工作表中的行拆分成若干個獨立的Excel文件？假設(shè)您要為Sheet1表第二行的每一行創(chuàng)建一個新工作簿（獨立文件）。工作簿以B.1列的單元格值命名。ALT F11 2，插入mod

怎樣把excel中的一個工作表中的行拆分成若干個獨立的Excel文件？

假設(shè)您要為Sheet1表第二行的每一行創(chuàng)建一個新工作簿（獨立文件）。工作簿以B.1列的單元格值命名。ALT F11 2，插入module 3，將下面的代碼粘貼到module sub split（）dim I as long dim Na as string中應(yīng)用程序屏幕更新=False表示i=2到工作表（“sheet1”）。范圍（“b65536”）。結(jié)束（xlUp）。行na=Sheets（“sheet1”）。單元格（i，2）。值工作表（“sheet1”）。復(fù)制ActiveWorkbook.SaveAs文件文件名：=此工作簿。路徑& “”和ampna& “.xls”行（i）。復(fù)制行（“2”）行（“3:”&范圍（“b65536”）。結(jié)束（xlUp）.Row）。刪除活動窗口。關(guān)閉savechanges:=True下一步應(yīng)用程序屏幕更新=真端sub 4。運行宏“split”