两ç§æ¹æ³ï¼
1ãæå·¥ï¼æ¯æ¬¡é200è¡ï¼å¤å¶ï¼æ°å»ºææ¬æ件ï¼ç²è´´ï¼ä¿åãéå¤50次ã
2ãèªå¨ï¼ä½¿ç¨VBA代ç ï¼ä½åææ¯ä½ çæ°æ®è¡¨ç»æå¿
须说æ¸
æ¥ã
代ç å¦ä¸ï¼
Sub è¾åºææ¬()
Sheets("sheet1").Select 'éå®è¦ä¿åçå·¥ä½è¡¨
k = 1
For i = 1 To 600 Step 6 'ä»ç¬¬1è¡å°600è¡,æ¯6è¡ä¸ºä¸ä¸ªæ件
Range("a" & i & ":h" & i + 5).Copy 'å¤å¶Aä¸Håçå
è¡å
容
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=k, FileFormat:=xlText, CreateBackup:=False '以txtç±»ååå¨
ActiveWindow.Close (True) 'å
³éæ件
k = k + 1
Next
MsgBox "ä¿åå®æ¯"
End Sub
çæçææ¬æ件ä¼ä¿åå¨åEXCELå·¥ä½ç°¿åä¸ç®å½ä¸
追é®æ¹æ¬¡å·é£éä¸ä¸å®æ¯æ¯6è¡ï¼æå¯è½æ¯3ã4ã5ã6ã7ã8è¡ï¼æ¯å¦å¾ä¸æ¹æ¬¡å·170921-076为ä¸ä¸ªTXTæ件ï¼ç¶åä¿åçååè½ä»¥è¯¥æ¹æ¬¡å·ï¼170921-076ï¼ä¿åã