想利用vlookup查表，但vba說字串太長

shi353

字串太長有辦法改善嗎?  我用空白 加 _ 線都沒用!  是不是每行超過多少字就沒法編譯了?  煩請各位先進解惑 ，謝謝

yaozong

看不懂你写的自定义函数

不知下式可否替代

Function Ran(A)
  Dim rng As Range
  Set rng = [a5:b19]
  Ran = Application.VLookup(A, rng, 2, 0)
End Function

蓝桥玄霜

1. Function zd(a As Range)
   
2. Dim Arr, i&, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Myr = Cells(Rows.Count, 1).End(xlUp).Row
   
5. Arr = Range("a4:b" & Myr)
   
6. For i = 2 To UBound(Arr)
   
7.     d(Arr(i, 1)) = Arr(i, 2)
   
8. Next
   
9. If d.exists(a.Value) Then zd = d(a.Value) Else zd = ""
   
10. End Function
    

复制代码

蓝桥玄霜

请见附件。

chenbiao2012

Sub 应用字典()
    Set d = CreateObject("scripting.dictionary")
        With Sheet1
        arr = .[a4].CurrentRegion
        
        For i = 1 To UBound(arr)
            d(arr(i, 1)) = arr(i, 2)
        Next
        
        
        For Each Rng In .Range("e4:e" & Cells(Rows.Count, "e").End(xlUp).Row)
            Rng.Offset(, 1) = d(Rng.Value)
        Next
        
    End With
End Sub
没理解意思，看看是不是想这样。

shi353

謝謝 樓上的人的解答，我上網查了一下，知道vba對每行文字長度還是有限制的，超過了就不能編譯，這也是vba宏的本身的限制