ããå¾å¤æåä¼éå°è¿æ ·çé®é¢ï¼å°±æ¯å¾æå¾å¤é¡µçæ°æ®ï¼å°çæå å页ï¼å¤çå¯è½æå ç¾é¡µï¼ç¶åéè¦å并å°ä¸ä¸ªé¡µé¢åæ°æ®åæï¼å¦æä¸é¡µé¡µçå¤å¶ç²è´´çè¯ï¼å°±æ¯è¾éº»ç¦ãä¸é¢æå°±ä»ç»ä¸ç§å©ç¨excelçå®è®¡ç®æ¥è§£å³è¿ä¸ªé®é¢ã
ããå·¥å
·/åæ
ããexcelæ°æ®
ããmicrosoft office
ããæ¹æ³/æ¥éª¤
ãã1
ããé¦å
æ们è¦æèªå·±çexcelæ°æ®ï¼å¹¶ä¸æ们éè¦çæ¯microsoft excelï¼WPS没æè¿äºè´è´£çåè½ãæ¯å¦æä¸é¢ä¸¾ä¾çï¼æèªå·±æ205页çæ°æ®éè¦å并ï¼
ãã2
ããçå°è¿ä¹å¤æ°æ®é¡µè¦å并ï¼å¦ææ¯å¤å¶ç²è´´çè¯ï¼å·¥ä½éå°±å¾å¤§äºãæ们ç°å¨å¼å§å并ï¼é¦å
è¦å¨æå页æ°å»ºä¸ä¸ªå·¥ä½è¡¨ã
ãã3
ããå¨æ°å»ºçsheet表ä¸âå³é®âï¼æ¾å°âæ¥ç代ç âï¼ç¶åçå°å®è®¡ç®çé¢ã
ãã4
ããçå°å®è®¡ç®çé¢ï¼æ们就åªéè¦æä¸é¢ç代ç å¤å¶è¿å»ï¼ä»£ç å¦ä¸ï¼ææå¦ä¸ï¼
ããSub å并å½åå·¥ä½ç°¿ä¸çææå·¥ä½è¡¨()
ããApplication.ScreenUpdating = False
ããFor j = 1 To Sheets.Count
ããIf Sheets(j).Name <> ActiveSheet.Name Then
ããX = Range("A65536").End(xlUp).Row + 1
ããSheets(j).UsedRange.Copy Cells(X, 1)
ããEnd If
ããNext
ããRange("B1").Select
ããApplication.ScreenUpdating = True
ããMsgBox "å½åå·¥ä½ç°¿ä¸çå
¨é¨å·¥ä½è¡¨å·²ç»å并å®æ¯ï¼", vbInformation, "æ示"
ããEnd Sub
ãã5
ããåå®ä¸é¢çäºæ
ï¼ç¶ååªéè¦ç¹å»å·¥å
·æ ä¸é¢çâè¿è¡âä¸çâè¿è¡åè¿ç¨/ç¨æ·çªä½âå°±å¯ä»¥äºï¼å并å®ä¹åä¼ææ示ãæ示å®æä¹åå°±å¯ä»¥æå®è®¡ç®çé¢å
³éäºã
温馨提示:答案为网友推荐,仅供参考