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
next
麻烦老师继续指导下 谢谢！
---------------------------
错误
---------------------------
编译错误:未声明“zd”。它可能因其保护级别而不可访问。
错误代码：For Each k As Integer In zd.Keys
---------------------------
确定
---------------------------
加好友 
发短信
Post By：2023/4/4 17:53:00 [显示全部帖子]
此主题相关图片如下：捕获.png