- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在excel中实现证号 日期 诊断 都相同的情况下 算一次数据以证号进行数量统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186068)
-- 发布时间：2023/4/4 17:53:00
-- 如何在excel中实现证号 日期 诊断 都相同的情况下 算一次数据以证号进行数量统计
样本数据：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工作簿1.xls |
此主题相关图片如下：捕获.png
如何在excel中实现证号 日期 诊断 都相同的情况下 算一次数据以证号进行数量统计
如证号1 有两次2023年3月2日 诊断都为A的数据 有一次2023年3月3 诊断为B
那么就统计证号1 为2
证号 数量
1 2
有没有老师可以指导一下呢 直接在excel表中操作
[此贴子已经被作者于2023/4/4 17:54:27编辑过]
-- 发布时间：2023/4/4 20:26:00
--
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)
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
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
next
-- 发布时间：2023/4/5 7:26:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/to...
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
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)
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
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
next
麻烦老师继续指导下 谢谢！
---------------------------
错误
---------------------------
编译错误:未声明“zd”。它可能因其保护级别而不可访问。
错误代码：For Each k As Integer In zd.Keys
---------------------------
确定
---------------------------
-- 发布时间：2023/4/6 8:38:00
--
很简单的错误，帮助复制的代码，忘记改了而已，但是往往我们发的代码，你们都没有一点自己的判断能力，只能等着我们来改？
For Each k As Integer In dict.Keys