excel 宏把多个工作表合并成一个工作表

缺乏、安全感 2024-04-17 21:30 41阅读 0赞

在上篇博客https://blog.csdn.net/whandgdh/article/details/100184090，讲到了把一个工作表拆分为多个，  
那其实也可以把多个工作表合并为一个。  
继续之前的例子，我们把汇总表删除  
如下  
![在这里插入图片描述][20190901161215121.png]  
把表 1，2，3 合并到sheet5中

Sub 合并当前工作簿下的所有工作表()
    Application.ScreenUpdating = False
    For j = 2To Sheets.Count
     ' j=2表示 从第二个表中开始获取工作簿的所有工作表
    If Sheets(j).Name <> ActiveSheet.Name Then
    X = Range("A95536").End(xlUp).Row + 1
    Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
    Next
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
    End Sub

同样进入sheet5的vba编程界面  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70]  
放入代码并运行  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 1]  
运行结果如下图：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 2]

删除宏代码 然后保存  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 3]

[20190901161215121.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/0e7017f5ca0341cbb7078a824be3a44d.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/1b92c1a892284cf3bc5eabf4f85c6133.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 1]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/d6cb230bf5274e5d878df2a438412be5.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 2]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/2a4d572b4456421e96928c14518d353b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3doYW5kZ2Ro_size_16_color_FFFFFF_t_70 3]: https://image.dandelioncloud.cn/pgy_files/images/2024/04/17/93e0671793114201ac8605698a81ba1b.png