求助代码执行结果错误诊断

Justin-2016

求助代码运行结果错误诊断.zip (15.61 KB, 下载次数: 7)

2018-8-11 15:27 上传

点击文件名下载附件

qingc0221

你看你的图片，是不是有一个打谷机不一样？

longming3

自己看图片

不知道为什么

代码加
trim（arr(i,1))

鄂龙蒙

1. Sub 数量()
   
2.         Dim d As New Dictionary
   
3.         Dim arr, arr1(1 To 100, 1 To 2), i%, k%, rows%
   
4.         arr = Range("b3:c" & Range("b65536").End(xlUp).Row)
   
5.         For i = 1 To UBound(arr)
   
6.                 s = Trim(arr(i, 1))
   
7.                 If d.Exists(s) Then
   
8.                     rows = d(s)
   
9.                     arr1(rows, 2) = arr1(rows, 2) + arr(i, 2)
   
10.                 Else
    
11.                      k = k + 1
    
12.                      d(s) = k
    
13.                      arr1(k, 1) = arr(i, 1)
    
14.                      arr1(k, 2) = arr(i, 2)
    
15.                 End If
    
16.         Next i
    
17.         Range("f2").Resize(k, 2) = arr1
    
18. End Sub

复制代码

wwz851025

longming3 发表于 2018-8-11 15:39
自己看图片

麻烦老师移步到这里http://club.excelhome.net/thread-1430279-1-1.html
请帮我看看这个问题怎么解决，急！
多个列表框实现单选和多选功能。先谢谢了！