求助大神解决

mx31876

各位老师好：

   如附件，我想将A/B附件的子表，给合并到C、D，并且以C跟D命名，且A子表插入到C表的第一位，B子表插入到C表的最后一位，能否通过宏代码来实现？在线等。如图显示：

mx31876

将A附件子表插入到C的第一位，B附件子表插入到C的最末位，并且不改动C的命名。

mx31876

求助各位大神

mx31876

有没有老师，大神帮帮忙？求助

mx31876

求助老师帮帮忙

ykcbf1100

属实没看懂。
4个工作簿，CD都是空表，啥叫子表？没听说过。
你还是需求重新再说一次吧，一次性说清楚，这样别人才好帮你。

mx31876

ykcbf1100 发表于 2024-1-24 14:26
属实没看懂。
4个工作簿，CD都是空表，啥叫子表？没听说过。
你还是需求重新再说一次吧，一次性说清楚， ...

老师好，就是我需要将A表里面的《说明》这张表插到C表的第一个位置，B表里面《汇总》这张表插入到C表的最后位置。跟C表1/2/3子表内容没关系。因为我有很多个表需要插入，如果没有宏的话，就需要每个表都打开，移动或复制到表，新建到表里面。

mx31876

求好心人帮帮忙吧，1000多个表需要插入，移动复制太费时间了 哭死

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.24
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim arr, brr
   
5.     Dim tm: tm = Timer
   
6.     Set fso = CreateObject("Scripting.FileSystemObject")
   
7.     On Error Resume Next
   
8.     p = ThisWorkbook.Path & ""
   
9.     f = p & "A.xlsx"
   
10.     Set wb = Workbooks.Open(f, 0)
    
11.     With wb.Sheets(1)
    
12.         arr = .UsedRange
    
13.         wb.Close False
    
14.     End With
    
15.     f = p & "B.xlsx"
    
16.     Set wb = Workbooks.Open(f, 0)
    
17.     With wb.Sheets(1)
    
18.         brr = .UsedRange
    
19.         wb.Close False
    
20.     End With
    
21.     f = p & "C.xlsx"
    
22.     Set wb = Workbooks.Open(f, 0)
    
23.     With wb.Sheets(1)
    
24.         .Cells.celar
    
25.         .[a1].Resize(UBound(arr), 1) = arr
    
26.         r = .Cells(Rows.Count, 1).End(3).Row
    
27.         .Cells(r + 1, 1).Resize(UBound(brr), 1) = brr
    
28.     End With
    
29.     wb.Close 1
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
32. End Sub
    

复制代码

ykcbf1100

mx31876 发表于 2024-1-24 14:51
求好心人帮帮忙吧，1000多个表需要插入，移动复制太费时间了 哭死

猜一下，可能还不是你想要的。