从另一个表中查找的符合条件单元格的求助。

532695416

根据从sheet“数据库"区域查找到符合sheet"表单"“b3"和C6开始两个条件的单元格内容。非常感谢！ 求助查询.zip (17.75 KB, 下载次数: 24)

2014-10-28 22:40 上传

点击文件名下载附件

532695416

我现在正在学习VBA。关于数组我有些不太懂，望高手帮忙。后面注释一下！！万分感激！！

TomingTang

一定要用vba做？函数很简单啊：
f6：=SUMPRODUCT((数据库!$A$2:$A$37=表单!$B$3)*(数据库!$G$2:$G$37=表单!C6)*(数据库!$J$2:$J$37))
i6：=SUMPRODUCT((产品库!$C$2:$C$208=表单!C6)*(产品库!$F$2:$F$208))

532695416

是啊。因为数据比较多，我要查找整列的数据。
如果用函数的话，反映太慢的。
请懂数组VBA的朋友帮忙一下。如果无法同时实现两列绿色值。请帮忙实现一下F列的要求！谢谢！！！

532695416

这个做的跟我的问题很像。http://club.excelhome.net/thread-985409-1-1.html
但是我有些不太明白。
请高手帮忙！！

blanksoul12

Sub test()
Dim result As Range
For i = 6 To Sheet1.Range("a65536").End(xlUp).Row
    If Cells(i, 3) = "" Then Exit For
    Set result = Sheet2.Columns(7).Find(Sheet1.Cells(i, 3))
    If Not result Is Nothing Then
        Sheet1.Cells(i, 6) = result.Offset(0, 3)
    Else
        Sheet1.Cells(i, 6) = "找不到!"
    End If
   
    Set result = Sheet3.Columns(3).Find(Sheet1.Cells(i, 3))
    If Not result Is Nothing Then
        Sheet1.Cells(i, 9) = result.Offset(0, 3)
    Else
        Sheet1.Cells(i, 9) = "找不到!"
    End If
Next
End Sub
這樣行嗎?

532695416

blanksoul12 发表于 2014-10-29 17:14
Sub test()
Dim result As Range
For i = 6 To Sheet1.Range("a65536").End(xlUp).Row

有一个功能没实现：F列需要根据2个B3和C列，2个单元格进行查询

比如：f6需要根据B3跟c6，2个单元格在“数据库”中查找的
就是说B3为空或者是“数据库”的A列没有找到的内容，F列是 找不到的

需要2个单元格都匹配才的
我讲的您明白吗
请帮忙修改。谢谢！！

blanksoul12

請模擬結果...............

lm1221

532695416 发表于 2014-10-29 17:51
有一个功能没实现：F列需要根据2个B3和C列，2个单元格进行查询

比如：f6需要根据B3跟c6，2个单元格在 ...

好复杂的附件！好复杂的说明！好复杂的模拟！呵呵，猜下吧！

1. Sub test()
   
2.     Dim ar, ar1, a2(), i&, s$, k&, j&
   
3.     s = Right(Range("b3").Value, 1)
   
4.     ar = Sheet2.[a1].CurrentRegion
   
5.     ar1 = Sheet3.[a1].CurrentRegion
   
6.     ReDim ar2(1 To UBound(ar), 1 To 7)
   
7.     For i = 2 To UBound(ar)
   
8.         If Right(ar(i, 1), 1) = s Then
   
9.             k = k + 1
   
10.             ar2(k, 1) = ar(i, 7): ar2(k, 4) = ar(i, 10)
    
11.         End If
    
12.     Next i
    
13.     For m = 1 To k
    
14.         For i = 2 To UBound(ar1)
    
15.             If s & "|" & ar2(m, 1) = Right(ar1(i, 2), 1) & "|" & ar1(i, 3) Then ar2(m, 7) = ar1(i, 6)
    
16.         Next i
    
17.     Next m
    
18.     [c6].Resize(k, 7) = ""
    
19.     [c6].Resize(k, 7) = ar2
    
20. End Sub
    

复制代码

hlly888

请看附件