字典返回值为空

kgallen110

各位大神，我想反悔压缩id的行，并在对应的压缩ID下面插入行。但是我的代码里面字典返回值始终为空，表示不太理解，求助。
先谢谢各位大神！


  压缩ID  班级  分数            压缩ID  
  G0928  一班  

55

            G0929  
  G0929  二班  

66

              
  G0930  三班  

77

              
                    
                    

kgallen110

第一次发帖，版面有点乱，见谅
压缩ID        班级        分数                        压缩ID
G0928        一班        55                        G0930
G0929        二班        66                                               
G0930        三班        77                                               

jiangxiaoyun

这，不是很明白你的意思。你要达到什么效果？

kgallen110

jiangxiaoyun 发表于 2018-8-8 16:03
这，不是很明白你的意思。你要达到什么效果？

就是返回所需要的压缩ID这列所在的行数，并在相应的行数下插入一行。我的代码有问题，不返回行数。但是又找不到原因。能麻烦大神帮忙看看么

iwangyi

压缩ID
G0930
如果楼主想得到上面两个名称所在行数，则如下
Sub CC()
Set d = CreateObject("SCRIPTING.DICTIONARY")
ARR = [A1].CurrentRegion
For I = 1 To UBound(ARR)
d(ARR(I, 1)) = I
Next
For Each RNG In [I1:I2]
RNG.Offset(, 2) = d(RNG.Value)
Next
End Sub

jiangxiaoyun

Sub vf()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    brr = [i1].CurrentRegion
    For i = 2 To UBound(brr)
        d(brr(i, 1)) = ""
    Next
    For i = UBound(arr) To 2 Step -1
        If d.exists(arr(i, 1)) Then
            Rows(i + 1).Insert
            Range("a" & i).Resize(1, 3).Copy Range("a" & i + 1)
        End If
    Next
   
End Sub

可以使用纯数组处理数据，无须使用插入行操作。仅供参考

zopey

试试看，d(arr(m, 1))   修改为
d(cstr(arr(m, 1))) 或者 d(arr(m, 1) & "")

kgallen110

iwangyi 发表于 2018-8-8 16:46
压缩ID
G0930
如果楼主想得到上面两个名称所在行数，则如下

我的想法是想得到I列所显示的压缩ID的行数，我这边表述有点问题。
如果有相同的压缩ID的话，这个对我来说有点没有效果。我想请问下，我这边遇到个问题，我的式子d(arr(i,1))=d(arr(i,1)) & i &","  这个式子里面d(arr(i,1))始终显示为空值，不太理解出了什么问题。我的附件中有这个代码

kgallen110

zopey 发表于 2018-8-8 16:56
试试看，d(arr(m, 1))   修改为
d(cstr(arr(m, 1))) 或者 d(arr(m, 1) & "")

厉害了，完美解决。字典也需要注意格式问题啊，谢谢大神！

kgallen110

jiangxiaoyun 发表于 2018-8-8 16:55
Sub vf()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion

谢谢指导，刚开始接触字典，向各位多学习