VB自动汇总各sheet数据

gemini8806 · 发表于 2019-8-22 11:56

求助大神，需要把非sheet1的其他表里的数据自动更新在sheet1中，剔除首列为空的行，求vb脚本，谢谢。

约定的童话 · 发表于 2019-8-22 13:24

求和的部分怎么弄？去掉？

朱荣兴 · 发表于 2019-8-22 13:25

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2019-8-22 13:25

提示: 作者被禁止或删除内容自动屏蔽

tigertc · 发表于 2019-8-22 13:41

Sub lqh()
Dim arr, endRow&, n&
n = Sheets("sheet1").[h1048576].End(3).Row + 1
For Each sht In Sheets
If sht.Name <> "Sheet1" Then
With sht
.AutoFilterMode = False
.Cells.EntireRow.Hidden = False
.Cells.EntireColumn.Hidden = False
endRow = .[h1048576].End(3).Row
arr = .Range(.Cells(2, 1), .Cells(endRow, 15))
End With
Sheets("sheet1").Cells(n, 1).Resize(UBound(arr), 15) = arr
n = n + UBound(arr)
End If
Next
End Sub

复制代码

gemini8806 · 发表于 2019-8-22 15:08

约定的童话发表于 2019-8-22 13:24
求和的部分怎么弄？去掉？

对的，求和的那几列需要自动删除

gemini8806 · 发表于 2019-8-22 15:23

tigertc 发表于 2019-8-22 13:41

这个没有自动剔除求和的那几行哦

luocation · 发表于 2019-8-22 15:52

tigertc 发表于 2019-8-22 13:41

单元格有变空格，就无效

xiangbaoan · 发表于 2019-8-22 17:03

………………

maomao218 · 发表于 2019-8-22 17:49

Sub test()
Dim sh As Worksheet
Dim arr, brr
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
      If sh.Name <> "Sheet1" Then
         i = sh.Range("a65536").End(3).Row
            For a = 2 To i
                  If sh.Range("a" & a).Value <> "" Then
                     d(sh.Range("a" & a & ":n" & a)) = ""
                  End If
            Next
      End If
Next
Sheets(1).Range("a2").Resize(d.Count, UBound(d.keys) - 1) = Application.Transpose(Application.Transpose(d.keys))
End Sub

试了一下这样是可以的~

		自动登录	找回密码
密码			免费注册

[求助] VB自动汇总各sheet数据

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-8-22 13:25 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-8-22 13:25 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报