如何在excel中实现证号日期诊断都相同的情况下算一次数据以证号进行数量统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在excel中实现证号日期诊断都相同的情况下算一次数据以证号进行数量统计

共有2087人关注过本帖树形打印复制链接主题：如何在excel中实现证号日期诊断都相同的情况下算一次数据以证号进行数量统计

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107160 积分：545049 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/4 20:26:00 [显示全部帖子]

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

dim dict as new dictionary(of string,integer)

For n As Integer = 3 To Sheet.Rows.Count -1
if dict.containskey(Sheet(n,0).text)

dict(Sheet(n,0).text) = dict(Sheet(n,0).text) + 1

else

dict.add(dict(Sheet(n,0).text), 1)

endif
Next

dim i as integer = 3

For Each k As Integer In zd.Keys

Sheet(i+3,4).value = k

Sheet(i+3,5).value = dict(k)

i+=1

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107160 积分：545049 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/6 8:38:00 [显示全部帖子]

很简单的错误，帮助复制的代码，忘记改了而已，但是往往我们发的代码，你们都没有一点自己的判断能力，只能等着我们来改？

For Each k As Integer In dict.Keys

主题：如何在excel中实现证号 日期 诊断 都相同的情况下 算一次数据以证号进行数量统计