求助 通过编程实现以下功能
有两个EXCEL表，库存和出货。如何实现打开2个EXCEL表，以出货表中A列为参照物，出货表和库存表做比较，如果在库存表A列中能找到相同的数值，且该行对应B列单元格为空，对应C列单元格为“是”，则将对应D列的单元格数值，返回出货表对应B列的单元格
出货：
A B
铅笔
本子
库存：
A B C D
种类 是否存货 是否在用 数量
铅笔 是 2
本子 无 是 0
结果：出货表中铅笔B1为2 因为本子不满足条件，故B2返回“无可用”
[解决办法]
Dim sh1, sh2
Set sh2 = Worksheets(2)
Set sh1 = Worksheets(1)
Dim i As Integer
Dim j As Integer
For i = 1 To 250
For j = 1 To 250
If sh1.Cells(i, 1) = sh2.Cells(j, 1) Then
sh1.Cells(i, 4) = "库存余额"
Else: sh1.Cells(i, 4) = "零库存"
End If
Next
Next
这是我平常用VBA操作EXCEL的语句，照样搬到VB中应该就可以了
