统计个数与求和

剑指E

天地一相 发表于 2023-1-4 17:05
谢谢你。我测试后，感觉修改成对多表统计有难度，琢磨着修改了求助，请再看看主贴，

剑指E

天地一相 发表于 2023-1-4 17:05
谢谢你。我测试后，感觉修改成对多表统计有难度，琢磨着修改了求助，请再看看主贴，

剑指E

天地一相

剑指E 发表于 2023-1-4 18:09

感谢！！！你厉害。我斗胆再追问一句：a=sh.Name.若A是表名“计算A表”的A呢，咋调整？

天地一相

剑指E 发表于 2023-1-4 18:09

先谢，原想着照猫画虎修改表名和行列范围，不想能力太差搞不定。可否请你修改，我统计项目的A,B,C,D,E 项，对应的就是sheet3，4，5，6，7. 这样可不管我自定义修改的表名了。

tanglf188

附件里面有说明

天地一相

tanglf188 发表于 2023-1-5 10:15
附件里面有说明

谢谢！费心了。依我有限的水平看了下，谈一下，你的sheet(i)这个思路好，我A0,A1等这个东西是固定的，字母就是A-E，然后后缀数字0-3.目前没什么变化，或许未来会增加5-9.主要就是表格的自定义名称可能会变化，但表的顺序不会变。如果sheet(i)里的i是从3开始，那3，4，5，6，7，对应的就是A,B,C,D,E.这5个字母类。我似乎没有发现规定统计数据的行列范围的内容。因为，要统计的5张表里，需要统计的数据范围首先是不同的，其次，这范围可能会随着使用体验而改变设计变动，想象着可否这样，代码里直接定义，A类在什么表里，数据范围坐标。B,C,D,E,依次定义。然后按规则统计汇总。谢谢

liulang0808

附件内容供参考。。。。。。

tanglf188

天地一相 发表于 2023-1-5 11:25
谢谢！费心了。依我有限的水平看了下，谈一下，你的sheet(i)这个思路好，我A0,A1等这个东西是固定的，字 ...

范围就是不管你输入的位置在哪都能取到，如果说非要强制在A1-K2之间的话只要修改如下：
    删除3行代码，第一行是取最后有效行号，第二行是取最后有效列号，第三行是把列号转换为列字母
      countrow = Sheets(i).UsedRange.Cells(Sheets(i).UsedRange.Rows.Count, 1).Row
      countcol = Sheets(i).UsedRange.Cells(1, Sheets(i).UsedRange.Columns.Count).Column
      num2str = Replace(Cells(1, countcol).Address(0, 0), "1", "")
    改为
      countrow =2
      num2str =“K”

天地一相

liulang0808 发表于 2023-1-5 12:04
附件内容供参考。。。。。。

谢谢。看了测试了。两个问题：1，用shett(i)，可定义i起始于某个数，若5，则，sheet5，6，7，8，9，分别对应A,B,C,D,E.这样可避免自定义表名的问题。2，5张统计表里的统计数据区位置范围不同，需要分别定义行列范围。