键盘宏功能怎么设置,EXCEL如何运用宏多条件查询

键盘宏功能怎么设置,EXCEL如何运用宏多条件查询

方法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