è®°å¾ç»åæã //* æ¤å®ç¨äºå并åä¸å·¥ä½ç°¿å çææå·¥ä½è¡¨ï¼ æå¼ä½ çå·¥ä½ç°¿ï¼æä¸alt+F11ï¼æå ¥-模åï¼çè§ä¸ä¸ªæ¨¡å1ï¼å¤å¶ä¸é¢ççå 容ï¼ç¶åè¿è¡ã ä½ ç å·¥å ·-å®-å®å ¨æ§ï¼è®¾ç½®ä¸ºä¸ï¼æè½è¿è¡æ¤å®ã æç §æ示åå°±å¯ä»¥äºã注æï¼å¦æå·¥ä½è¡¨å¾å¤å¯è½éè¦å¾é¿æ¶é´ï¼è¯·èå¿çå¾ ï¼ *// ==========以ä¸æ¯å®=============== Sub å并åå·¥ä½è¡¨å 容() sp = InputBox("å表å 容ä¹é´ï¼é´éå è¡ï¼ä¸è¾åé»è®¤ä¸º0") If sp = "" Then sp = 0 End Ifst = InputBox("å表ä»ç¬¬å è¡å¼å§å并ï¼ä¸è¾åé»è®¤ä¸º2") If st = "" Then st = 2 End IfSheets(1).Select Sheets.Add
If st > 1 Then Sheets(2).Select Rows("1:" & CStr(st - 1)).Select Selection.Copy Sheets(1).Select Range("A1").Select ActiveSheet.Paste y = st - 1 End If
For i = 2 To Sheets.Count Sheets(i).Select For v = 1 To 256 zd = Cells(65535, v).End(xlUp).Row If zd > x Then x = zd End If Next v If y + x - st + 1 + sp > 65536 Then MsgBox "å 容太å¤ï¼ä» å并å" & i - 2 & "个表çå 容ï¼è¯·æå ¶å®è¡¨å¤å¶å°æ°å·¥ä½èéåç¨æ¤ç¨åºå并ï¼" Else: