vba

hnzz416cxm

求助高手指点，查找返回值

lcluck2002

貌似可以，但不敢妄猜。不知道是什么规则。

582766

逻辑是什么，条件

fzxba

1. Sub test1()
   
2.   Dim ar, br() As String, Dict As Object
   
3.   Dim i As Long, p As Long, s As String, t As String
   
4.   
   
5.   Set Dict = CreateObject("Scripting.Dictionary")
   
6.   ar = Range("A3:T" & Cells(Rows.Count, "B").End(xlUp).Row)
   
7.   ReDim br(1 To UBound(ar), 1 To 2)
   
8.   For i = 1 To UBound(ar)
   
9.     If Len(Trim(ar(i, 1))) Then s = Trim(ar(i, 1))
   
10.     t = Trim(ar(i, 3))
    
11.     If Len(t) Then Dict.Add s & "|" & t, i
    
12.   Next
    
13.   For i = 1 To UBound(ar)
    
14.     If Len(Trim(ar(i, 18))) Then s = Trim(ar(i, 18))
    
15.     If Val(ar(i, 20)) Then
    
16.       t = -Int(-ar(i, 20))
    
17.       If Dict.Exists(s & "|" & t) Then
    
18.        p = Dict(s & "|" & t)
    
19.        br(i, 1) = ar(p, 2)
    
20.        br(i, 2) = ar(p, 9)
    
21.       End If
    
22.     End If
    
23.   Next
    
24.   
    
25.   Range("X3").Resize(UBound(br), UBound(br, 2)) = br
    
26. 
    
27.   Set Dict = Nothing
    
28.   Beep
    
29. End Sub

复制代码

LIUZHU

没有写返回的条件

hnzz416cxm

fzxba 厉害，可以！如果把W列也可以vba生成就好了

fzxba

hnzz416cxm 发表于 2022-12-16 12:49
fzxba 厉害，可以！如果把W列也可以vba生成就好了