请老师看看，为啥统计不出次数，谢谢fzxba和半百老师！

lhj323323

请老师看看，为啥统计不出次数


求助2.rar (62.44 KB, 下载次数: 11)

2024-3-2 16:28 上传

点击文件名下载附件

gwjkkkkk

没看懂，模拟一下结果。。。

lhj323323

gwjkkkkk 发表于 2024-3-2 16:38
没看懂，模拟一下结果。。。

谢谢老师

红圈内，应为次数2，而现在却是1（可能就没进行次数累加）
即红箭头指向的记录。

sj15627581616

写入txt部分 自己再看着改改

sj15627581616

arr(i,1) 读取的时候是数值，字典创建键值的却是文本，构建输出文本放在字典外，字典只做计数

lhj323323

gwjkkkkk 发表于 2024-3-2 16:38
没看懂，模拟一下结果。。。

lhj323323

gwjkkkkk 发表于 2024-3-2 16:38
没看懂，模拟一下结果。。。

模拟结果如下

lhj323323

sj15627581616 发表于 2024-3-2 16:46
arr(i,1) 读取的时候是数值，字典创建键值的却是文本，构建输出文本放在字典外，字典只做计数

那如何把字符串和累加值融合在一起？

lhj323323

sj15627581616 发表于 2024-3-2 16:46
arr(i,1) 读取的时候是数值，字典创建键值的却是文本，构建输出文本放在字典外，字典只做计数

我把那一段改为如下，也不行

1. For i = 2 To UBound(Arr)
   
2.     str1 = Format(Arr(i, 1), "000000")
   
3.     If Not dic4.Exists(Arr(i, 1)) Then
   
4.        dic4(str1) = 1
   
5.        dic4(str1) = str1 & "=" & dic4(str1)
   
6.     Else
   
7.        dic4(str1) = dic4(str1) + 1
   
8.        dic4(str1) = str1 & "=" & dic4(str1)
   
9.     End If
   
10. Next

复制代码

于箱长

lhj323323 发表于 2024-3-2 16:55
我把那一段改为如下，也不行

你中断一下，看一下07行dic4(str1)的结果是啥？我猜100%是文本，文本+1会得到个啥结果？