统计个数与求和

tanglf188

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

补充一下，i就是索引号，也就是工作表的顺序编号，和属性Name无关。

天地一相

tanglf188 发表于 2023-1-5 12:49
补充一下，i就是索引号，也就是工作表的顺序编号，和属性Name无关。

谢谢，我知道，这个sheet1等，打开VBA编程时能看到，不受自定义表名的影响，所以我想着定义这个“i”的起始数字，就等于规定了表几对应A，依次就是B,C,D,E的对应表。

tanglf188

天地一相 发表于 2023-1-5 12:56
谢谢，我知道，这个sheet1等，打开VBA编程时能看到，不受自定义表名的影响，所以我想着定义这个“i”的起 ...

工作表三种常用命名：
1、Sheets("表名").Range(.... 常用的是这种
2、Sheet1.Range(....  你说的是这种
3、Sheets(索引号).Range(.... 我用的是这种

liulang0808

天地一相 发表于 2023-1-5 12:25
谢谢。看了测试了。两个问题：1，用shett(i)，可定义i起始于某个数，若5，则，sheet5，6，7，8，9，分别 ...

关于表名的问题，可以根据实际情况来确定。
具体还是要看表格的规范

关于统计数据区域范围不同，这个也是需要楼主指定范围，然后再看规律情况，

天地一相

tanglf188 发表于 2023-1-5 13:04
工作表三种常用命名：
1、Sheets("表名").Range(.... 常用的是这种
2、Sheet1.Range(....  你说的是这 ...

糊涂了我，你那个索引号具体成数字若和我说的不同，岂不是相当于自定义表名就是数字名称？难道，那数字只是表内各个表的排列顺序？

tanglf188

天地一相 发表于 2023-1-5 13:39
糊涂了我，你那个索引号具体成数字若和我说的不同，岂不是相当于自定义表名就是数字名称？难道，那数字只 ...

是啊，索引号就是表从左向右的顺序编号

天地一相

tanglf188 发表于 2023-1-5 13:48
是啊，索引号就是表从左向右的顺序编号

啊，这样呀，谢谢你。这样也挺好。那就可以规定从第几个表格开始是A，然后就是每张表格内需要统计的数据的边界定义了。目前，似乎是对全表统计的。

tanglf188

天地一相 发表于 2023-1-5 13:51
啊，这样呀，谢谢你。这样也挺好。那就可以规定从第几个表格开始是A，然后就是每张表格内需要统计的数据 ...

是的，我指定的就是i=2,也就是从第二张表开始统计的，直至最后一张表
写了标注了，方便你自己修改
Sub test()
    Sheet1.Rows("4:4").ClearContents '清除表1第四行数据
    k = 3 '初始列号（C列）
    For i = 2 To Worksheets.Count '从第二张表至最后一张表
        countrow = Sheets(i).UsedRange.Cells(Sheets(i).UsedRange.Rows.Count, 1).Row '第i张表的最大有效行号
        countcol = Sheets(i).UsedRange.Cells(1, Sheets(i).UsedRange.Columns.Count).Column '第i张表的最大有效列号
        num2str = Replace(Cells(1, countcol).Address(0, 0), "1", "") '第i张表的最大有效行号，转换成字母列号
        Sheet1.Cells(4, k) = Application.CountIf(Sheets(i).Range("A1:" & num2str & countrow), Right(Sheet1.Cells(3, k), 1))  '统计第i张表统计数据，统计值为第一张表第三行第k列单元格内容最右边的数字(0)
        col = (Worksheets.Count - 1) * 1 + k '计算第二个统计数字写入的列号
        Sheet1.Cells(4, col) = Application.CountIf(Sheets(i).Range("A1:" & num2str & countrow), Right(Sheet1.Cells(3, col), 1))  '统计第i张表统计数据，统计值为第一张表第三行第col列单元格内容最右边的数字(1)
        col = (Worksheets.Count - 1) * 2 + k '计算第三个统计数字写入的列号
        Sheet1.Cells(4, col) = Application.CountIf(Sheets(i).Range("A1:" & num2str & countrow), Right(Sheet1.Cells(3, col), 1))  '统计第i张表统计数据，统计值为第一张表第三行第col列单元格内容最右边的数字(2)
        col = (Worksheets.Count - 1) * 3 + k '计算第四个统计数字写入的列号
        Sheet1.Cells(4, col) = Application.CountIf(Sheets(i).Range("A1:" & num2str & countrow), Right(Sheet1.Cells(3, col), 1))  '统计第i张表统计数据，统计值为第一张表第三行第col列单元格内容最右边的数字(3)
        col = (Worksheets.Count - 1) * 4 + k '计算总和写入的列号
        Sheet1.Cells(4, col) = Application.Sum(Sheets(i).Range("A1:" & num2str & countrow)) '第i张表求和
        k = k + 1
    Next
    Sheet1.Select
End Sub

554700056

试试吧，我理解的是这样

sxbjzjf110