admin 管理员组

文章数量: 1184232


2024年5月19日发(作者：linuxfind)

1，多工作表汇总（Consolidate）

‘

‘两种写法都要求地址用R1C1形式，各个表格的数据布置有规定。

Sub ConsolidateWorkbook()

Dim RangeArray() As String

Dim bk As Worksheet

Dim sht As Worksheet

Dim WbCount As Integer

Set bk = Sheets("汇总")

WbCount =

ReDim RangeArray(1 To WbCount - 1)

For Each sht In Sheets

If <> "汇总" Then

.

i = i + 1

RangeArray(i) = "'" & & "'!" & _

("A1").s(ReferenceStyle:=xlR1C1)

End If

Next

("A1").Consolidate RangeArray, xlSum, True, True

[a1].Value = "XX"

End Sub

Sub sumdemo()

Dim arr As Variant

arr = Array("一月!R1C1:R8C5", "二月!R1C1:R5C4", "三月!R1C1:R9C6")

With Worksheets("汇总").Range("A1")

.Consolidate arr, xlSum, True, True

.


本文标签： 要求 数据 布置 地址 表格

版权声明：本文标题：Excel-VBA-多工作簿多工作表汇总实例集锦 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1716128725a691516.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。