Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 133|回复: 5

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

[复制链接]
发表于 2021-9-19 18:23 | 显示全部楼层 |阅读模式
祝大佬们节日快乐,请教一下,我想实现这样的功能,:点击汇总按钮,实现把表1、表2的数据复制到汇总表,但是在表1、表2中增加数据后,要求下方的说明随数据的增加自动下移。请问该怎么写代码?详情见附件。


疑问.zip

16.95 KB, 下载次数: 3

发表于 2021-9-19 19:39 | 显示全部楼层
  1. Option Explicit

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

使用道具 举报

 楼主| 发表于 2021-9-19 23:10 | 显示全部楼层

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

使用道具 举报

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

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

回复

使用道具 举报

 楼主| 发表于 2021-9-19 23:45 | 显示全部楼层
lisongmei 发表于 2021-9-19 23:29
不截图就说报错,我这又没报错。让我去猜吗

大佬息怒现在可以了
回复

使用道具 举报

发表于 2021-9-20 11:34 | 显示全部楼层

功能强大,感谢!
学习了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-10-20 10:28 , Processed in 0.155539 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表