|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
写个嵌套数组,这样的例子好象不多
Sub aa()
a = ThisWorkbook.Sheets.Count
ReDim ar(1 To a - 2, 1 To 2)
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
i = i + 1
If sh.Name Like "*重量金额*" = 0 Then
n = n + 1
ar(n, 1) = sh.Name
ar(n, 2) = sh.Range("o2:ac" & sh.Cells(Rows.Count, 15).End(3).Row)
If b < UBound(ar(n, 2)) Then b = UBound(ar(n, 2))
End If
Next
ReDim br(1 To b, 1 To n * 3 + 1)
s = 2: s1 = 1
For i = 1 To n
s1 = s1 + 3
d(ar(i, 1)) = s1
br(1, s1 - 2) = ar(i, 1): br(2, s1 - 2) = "合计重量"
br(2, s1 - 1) = "合计金额": br(2, s1) = "**更新日期"
For j = 1 To UBound(ar(i, 2))
ky = ar(i, 2)(j, 1)
r = d(ky)
If r = "" Then
s = s + 1
d(ky) = s
r = s
End If
br(r, 1) = ar(i, 2)(j, 1)
br(r, s1 - 2) = br(r, s1 - 2) + ar(i, 2)(j, 11)
br(r, s1 - 1) = br(r, s1 - 1) + ar(i, 2)(j, 15)
'br(r, s1 - 1) = "写上更新日期"
Next
Next
Sheets("重量金额合计").[b30].Resize(s, s1) = br
End Sub |
评分
-
1
查看全部评分
-
|