提取字母

数字迷

要求在表里边，先谢

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("sheet1")
   
7.         arr = .Range("ac1").CurrentRegion
   
8.         For i = 1 To UBound(arr) '
   
9.             For j = 2 To UBound(arr, 2)
   
10.                 d(arr(i, j)) = arr(i, 1)
    
11.             Next
    
12.         Next
    
13.         arr = .Range("a1").CurrentRegion
    
14.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
15.         For i = 1 To UBound(arr)
    
16.             For j = 1 To UBound(arr, 2)
    
17.                 If d.exists(arr(i, j)) Then
    
18.                     brr(i, j) = d(arr(i, j))
    
19.                 End If
    
20.             Next
    
21.         Next
    
22.         .Range("l1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
23.     End With
    
24. End Sub
    

复制代码

chxw68

有的数字比如32就没有对应的字母。

tanglf188

grf1973

这个题目本身没有难度，50万数据，关键是速度吧。
用数组代替字典速度可以快一点

数字迷

谢谢各位老师