提取数据问题，求大神帮忙看一下。

wbjiqpl

在窗口textbox1中输入其它能配对，输入纯数字无法配对到。如输入150.求无法配对到。求大神帮忙看一下。
还希望忽略字母的大小写

1. Private Sub CommandButton1_Click()
   
2. Dim C As String
   
3. 
   
4.         C = TextBox1.Text
   
5.         With Worksheets("Sheet1")
   
6.         Set dic = CreateObject("scripting.dictionary")
   
7.         arr = .UsedRange
   
8.         For I = 1 To UBound(arr)
   
9.         If Not dic.Exists(arr(I, 7)) Then
   
10.         dic(arr(I, 7)) = arr(I, 8)
    
11.         End If
    
12.         Next
    
13.         End With
    
14.         TextBox2.Text = dic(C)
    
15. End Sub

复制代码

fyure

跟数字没关系，150后面跟了个空格所致，用trim去除，用Ucase统一成大写

不知道为什么

在你代码基础上略改了下，能达到你的需求

Private Sub CommandButton1_Click()
    Dim C As String
   C = UCase(Trim(TextBox1.Text))
    With Worksheets("Sheet1")
        Set dic = CreateObject("scripting.dictionary")
        arr = .UsedRange
        For I = 1 To UBound(arr)
            If Not dic.Exists(arr(I, 7)) Then
                dic(UCase(CStr(Trim(arr(I, 7))))) = arr(I, 8)
            End If
        Next
    End With
    TextBox2.Text = dic(C)
End Sub

wbjiqpl

不知道为什么 发表于 2018-10-1 13:08
在你代码基础上略改了下，能达到你的需求

Private Sub CommandButton1_Click()

谢谢，正是需要的。感谢。

LOA

感觉这个用工作表函数就能做到，不用VBA。

LOA

经常用VBA，有时候很容易把问题想的复杂化，我经常有这样的体会，不知大家有没有？

tudarong

路过学习，下面这句有什么用的吗？
我取消它，还是一样可以查找匹配的。

If Not dic.Exists(arr(I, 7)) Then

不知道为什么

tudarong 发表于 2018-10-1 19:35
路过学习，下面这句有什么用的吗？
我取消它，还是一样可以查找匹配的。

这是字典中判断关键字是否已存在的

我是HR

学习了  谢谢