è¯å®æ¯ä¸ºäºä»»å¡å解ç¨äºã
è¦å表ä¸é¾ï¼å¯ä»¥ä½¿ç¨å®æ¥å®ç°ã
å 个åï¼ä¸ä¼æ代ç åä¸æ¥ã
æALT+F11,åå»å·¦ä¾§è¿ä¸ªæ件åï¼åå»å½åå·¥ä½è¡¨åï¼ç¶åå¨å³ä¾§ç²è´´ä»¥ä¸ä»£ç ãç¶åå°å·¥ä½è¡¨çé¢è¿è¡aaå®
Sub aa()
Dim newbook As Workbook
a = ThisWorkbook.Name
b = ActiveSheet.Name
h = InputBox("请è¾å
¥è¡æ°")
Application.ScreenUpdating = False
For n = 0 To Range("a65536").End(xlUp).Row \ h
Windows(a).Activate
Sheets(b).Activate
Rows((h * n + 1) & ":" & (h * n + h)).Copy
Set newbook = Workbooks.Add
With newbook
newbook.Activate
ActiveSheet.Paste
.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(a, ".xls", "") & n & ".xls"
.Close
End With
Next n
Application.ScreenUpdating = True
End Sub
è¿è¡æ¶ä¼æç¤ºä½ è¾å
¥è¡æ°ï¼æ¯å¦100ï¼ç¡®å®åå°±ä¼èªå¨ææ100è¡ä¸ä¸ªè¡¨ï¼å¹¶å ä¸åºå·ä¿å为æ°æ件ã
æçé®å¯ä»¥è¿½é®ã
温馨提示:答案为网友推荐,仅供参考