Question

EXCEL如何运用宏多条件查询

我有一个数据报表，表1：A列为货品单号，B列为单价，F列为发票号码；表2：A列为货品单号，B列为单价,C列为发票号码，现我要把表1：F列的发票号码填充到表2：C列的发票号码那栏去，前提条件是表1和表2的货品单号和单价同时相同（也就是表1A列跟B列和表2A列跟B列同时相同的情况下），如何运用宏编码实现上述功能呢？只要一个按钮，表1F列在单号和单价相同的情况下填充到表2C列发票号码那栏去

Answer 1

1.就以某小组学习成绩为例，进行多条件查找，如下图所示，需要查找科目得分。

2.在G2单元格输入=SUMPRODUCT((B2:B13=E2)*(C2:C13=F2)*(D2:D13))

3.其表示必须满足B2：B13姓名列等于要查找的姓名E2，C2：C13科目列等于要查找的科目F2时，在D2：D13得分列应该得到的值。

4.输入完成后回车得到结果，看到小李的数学得分是67分，与成绩表中对应的一致。

5.将E2或者F2中的条件变更试试，将小李改成小红，发现得分列跟随着发生变化。

Answer 2

这是一个用ACCESS解决非常容易的问题可是你却要用excel做。用VLOOKP()函数可以解决。没必要编宏的。

Answer 3

1开启宏录制，
2实际操作多条件查询，
3再查看宏代码，
4修改代码。（主要是精简代码，修改指定单元格语句为通用性地址单元）

Answer 4

不用宏啊 ，用公式就可以解决用vlookup的公式

Answer 5

　　方法1 公式
在表2 C1单元格输入下面的公式向下拖拽填充
=VLOOKUP(A1&B1,IF({1,0},Sheet1!$A$1:$A$20&Sheet1!$B$1:$B$20,Sheet1!$F$1:$F$20),2,0)
方法2 VBA宏
使用下面的VBA代码
添加一个模块,粘贴下面的代码,回到工作表 ALT+F8 选择这个宏名执行.
或者绑定这个宏到一个窗体按钮,执行
Sub 取发票号()
Dim SJarr()
Dim SJObj As Object
With Sheet1
sjendrow = .Range("A65536").End(xlUp).Row
SJarr = .Range("A1:G" & sjendrow).Value
End With
Set SJObj = CreateObject("scripting.dictionary")
For sjh = 1 To UBound(SJarr)
SJObj(SJarr(sjh, 1) & SJarr(sjh, 2)) = SJarr(sjh, 6)
Next

endrow = Sheet2.Range("B65536").End(xlUp).Row
For i = 1 To endrow
With Sheet2
CXNR = .Range("A" & i) & .Range("B" & i)
If SJObj.Exists(CXNR) Then
.Range("C" & i) = SJObj.Item(CXNR)
End If
End With
Next
End Sub