一个关于复制工作表数据到汇总表的问题，可增减数据，保留表下方的说明

oldwang

祝大佬们节日快乐，请教一下，我想实现这样的功能，：点击汇总按钮，实现把表1、表2的数据复制到汇总表，但是在表1、表2中增加数据后，要求下方的说明随数据的增加自动下移。请问该怎么写代码？详情见附件。

lisongmei

1. Option Explicit
   
2. 
   
3. Sub 按钮1_Click()
   
4. Dim arr
   
5. Dim sh As Worksheet
   
6. Dim x, y As Integer
   
7. For Each sh In Sheets
   
8.     If sh.Name = "表1" Or sh.Name = "表2" Then
   
9.         x = sh.Cells.Find("*", [a1], , , , xlPrevious).Row '查找表已使用的最后一行号
   
10.         With Sheets("原汇总")
    
11.             y = .Range("a100000").End(xlUp).Row '查找汇总最后一行行号
    
12.             Rows(y - 1 & ":" & y + x - 2).Insert    '插入与已使用行数一样的行，使用两个说明后置
    
13.             sh.Range("a1:b" & x).Copy .Range("a" & y - 1) '粘贴
    
14.         End With
    
15.     End If
    
16. Next
    
17. End Sub

复制代码

oldwang

lisongmei 发表于 2021-9-19 19:39

谢谢大佬，不过 Rows(y - 1 & ":" & y + x - 2).Insert    '插入与已使用行数一样的行，使用两个说明后置  这一行报错

lisongmei

oldwang 发表于 2021-9-19 23:10
谢谢大佬，不过 Rows(y - 1 & ":" & y + x - 2).Insert    '插入与已使用行数一样的行，使用两个说明后置 ...

不截图就说报错，我这又没报错。让我去猜吗

oldwang

lisongmei 发表于 2021-9-19 23:29
不截图就说报错，我这又没报错。让我去猜吗

大佬息怒现在可以了

pxjxdsj

lisongmei 发表于 2021-9-19 19:39

功能强大，感谢！
学习了。