这题有合并单元格查询在 VBA 怎么写代码呢 ?

niko88819

已知输入 F2 , F3 得到 F4
函数我会 , 遇到 VBA 不会了

kkf5560

1. Option Explicit
   
2. 
   
3. Sub t()
   
4. Dim arr, dic As Object, i&, str$
   
5. Set dic = CreateObject("Scripting.Dictionary")
   
6. arr = Range("a2").CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8.     If arr(i, 1) <> "" Then
   
9.         str = arr(i, 1)
   
10.     Else
    
11.         str = arr(i - 1, 1)
    
12.     End If
    
13.     str = str & arr(i, 2)
    
14.     dic(str) = arr(i, 3)
    
15. Next i
    
16. str = [f2] & [f3]
    
17. [f4] = dic(str)
    
18. End Sub
    

复制代码

niko88819

多谢老师 !!!

micch

Sub test()
    arr = [a2].CurrentRegion
    For i = 1 To UBound(arr)
            If arr(i, 1) = [f2] Then
                    [f4] = IIf(arr(i, 2) = [f3], arr(i, 3), arr(i + 1, 3))
                    Exit For
            End If
    Next
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     s1 = .Range("f2")
   
6.     s2 = .Range("f3")
   
7.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
8.     arr = .Range("a3:c" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       If Len(arr(i, 1)) <> 0 Then
    
11.         xm = arr(i, 1)
    
12.       End If
    
13.       If xm = s1 And arr(i, 2) = s2 Then
    
14.         .Cells(4, 6) = arr(i, 3)
    
15.         Exit For
    
16.       End If
    
17.     Next
    
18.   End With
    
19. End Sub
    

复制代码

chxw68

详见附件。

niko88819

多谢两位老师 !!! 小师妹正努力学习中