将标题指定项目装入字典

乐乐2006201505

将标题中数字1-27装入字典（即字典中只有27个关键字），其余的项目内容一个都不要。敬请帮助，十分感谢！

jiminyanyan

不是很明白，直接把1－27加入字典，不行么。

乐乐2006201505

jiminyanyan 发表于 2019-3-17 18:10
不是很明白，直接把1－27加入字典，不行么。

不行，因为我现在使用1-27数字来代替实际的内容。实际内容不是1-27。
希望能得到大师的指点，谢谢！

maditate

楼主的意思是不是有27个字符串，分别填放在三行27列内，现在需要循环读取处在不同行不同列内的27个字符串，并作为字典的关键字？

maditate

1. Sub test()
   
2. '我把数字读出来了，装进字典你自已去搞吧。
   
3. For H = 1 To 27
   
4.   For I = 5 To 3 Step -1
   
5.   
   
6.      If Cells(I, H) <> Empty Then
   
7.         Cells(6, H) = Cells(I, H)
   
8.         Exit For
   
9.      End If
   
10.   Next I
    
11. Next H
    
12. End Sub
    

复制代码

乐乐2006201505

maditate 发表于 2019-3-17 21:05

非常感谢，我想到了这种思路，只是担心当遇到不为空的写入字典后，怎么跳出if循环，没想到只需跳出for循环即可，因此没有付诸行动，看来绝知此事要躬行，我本身思想上畏难的问题还很多。
Sub test()
'我把数字读出来了，装进字典你自已去搞吧。
    Dim arr, brr, d, d2, i&
    Set d = CreateObject("scripting.dictionary")
    arr = Range("b3:aa5")
    For H = 1 To UBound(arr, 2)
      For i = 3 To 1 Step -1
         If arr(i, H) <> Empty Then
            d(arr(i, H)) = H
            Exit For
         End If
      Next i
    Next H
End Sub