通过字典和数组进行分类汇总表格数据
摘要:Sub 分类汇总求和() Dim arr Sheets("分类汇总").Select Range("a2:h30000").ClearContents h = Sheets("汇总").Cells(65535, 1).End(xlUp).Row arr = Sheets("汇总").Range("a
阅读全文
posted @ 2022-07-03 12:21
posted @ 2022-07-03 12:21
|
|||||||||
日 | 一 | 二 | 三 | 四 | 五 | 六 | |||
---|---|---|---|---|---|---|---|---|---|
23 | 24 | 25 | 26 | 27 | 28 | 1 | |||
2 | 3 | 4 | 5 | 6 | 7 | 8 | |||
9 | 10 | 11 | 12 | 13 | 14 | 15 | |||
16 | 17 | 18 | 19 | 20 | 21 | 22 | |||
23 | 24 | 25 | 26 | 27 | 28 | 29 | |||
30 | 31 | 1 | 2 | 3 | 4 | 5 |
Powered by:
博客园
Copyright © 2025 lizicheng
Powered by .NET 9.0 on Kubernetes