依据条件取值

LS115115

依据条件取值
各位大神今天遇到一个问题，请大家帮帮忙，关于取值的，谢谢各位了，在线等

小凡、、、

=LOOKUP(4^9,FIND($D$2:$D$11,A2),$D$2:$D$11)

ww87725244

这两条怎么参照？？

LS115115

ww87725244 发表于 2024-6-14 17:13
这两条怎么参照？？

LS115115

小凡、、、 发表于 2024-6-14 17:10
=LOOKUP(4^9,FIND($D$2:$D$11,A2),$D$2:$D$11)

如果列数增多好像不行

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, strPat$
   
    ar = [D1].CurrentRegion.Value
    For i = 2 To UBound(ar)
         strPat = strPat & "|" & ar(i, 1)
    Next i
   
    ar = Range("A1", Cells(Rows.Count, "A")).Value
    ar(1, 1) = "想要的结果"
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = Mid(strPat, 2)
        For i = 1 To UBound(ar)
            If .test(ar(i, 1)) Then ar(i, 1) = .Execute(ar(i, 1))(0)
        Next i
    End With
   
    [f1].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

第三行模拟结果有误。。。

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.14
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 4).End(3).Row
   
4.     For i = 2 To r
   
5.         s = Cells(i, 4)
   
6.         d(s) = i
   
7.     Next
   
8.     r = Cells(Rows.Count, 1).End(3).Row
   
9.     For i = 2 To r
   
10.         For Each k In d.keys
    
11.             If InStr(Cells(i, 1), k) Then
    
12.                 Cells(i, 2) = k
    
13.                 Exit For
    
14.             Else
    
15.                 Cells(i, 2) = ""
    
16.             End If
    
17.         Next
    
18.     Next
    
19. End Sub
    

复制代码

ww87725244

LS115115 发表于 2024-6-14 17:59

你原数据不一样啊