[已解决]vba查询

wtzlsn

          效果如截图：根据B列C列D列已有的信息，从“台账”查找到绿色框内显示的相应信息。

Sub aaa()
Dim y, ar, i&, y2, br, j&
y = Sheets("食材付款单").Range("b65536").End(xlUp).Row
ar = Sheets("食材付款单").Range("a7:j" & y)
y2 = Sheets("台账").Range("b65536").End(xlUp).Row
br = Sheets("台账").Range("a5:m" & y2)
For i = 1 To UBound(ar)
    For j = 1 To UBound(br)
        If ar(i, 2) = br(j, 2) And ar(i, 3) = br(j, 3) And ar(i, 4) = br(j, 5) Then
            ar(i, 5) = br(j, 8)
            ar(i, 6) = br(j, 9)
            ar(i, 7) = br(j, 10)
            ar(i, 8) = br(j, 11)
            ar(i, 9) = br(j, 7)
            ar(i, 10) = br(j, 6)
            Exit For
        End If
    Next j
Next i
Sheets("食材付款单").Range("a7").Resize(UBound(ar), 10) = ar
End Sub

最佳答案

月排行榜 / 总排行榜

france723

2017-5-18 15:53

工作表名字自己修改, 我用的是01,02

1. Sub aaa()
   
2. Dim y, ar, i&, y2, br, j&
   
3. y = Sheets("01").Range("b65536").End(xlUp).Row
   
4. ar = Sheets("01").Range("a7:j" & y)
   
5. y2 = Sheets("02").Range("b65536").End(xlUp).Row
   
6. br = Sheets("02").Range("a5:m" & y2)
   
7. For i = 1 To UBound(ar)
   
8.     For j = 1 To UBound(br)
   
9.         If ar(i, 2) = br(j, 2) And ar(i, 3) = br(j, 3) And ar(i, 4) = br(j, 5) Then
   
10.             ar(i, 5) = br(j, 8)
    
11.             ar(i, 6) = br(j, 9)
    
12.             ar(i, 7) = br(j, 10)
    
13.             ar(i, 8) = br(j, 11)
    
14.             ar(i, 9) = br(j, 7)
    
15.             ar(i, 10) = br(j, 6)
    
16.             Exit For
    
17.         End If
    
18.     Next j
    
19. Next i
    
20. Sheets("01").Range("a7").Resize(UBound(ar), 10) = ar
    
21. End Sub

复制代码

跳转到最佳答案楼层

france723

工作表名字自己修改, 我用的是01,02

1. Sub aaa()
   
2. Dim y, ar, i&, y2, br, j&
   
3. y = Sheets("01").Range("b65536").End(xlUp).Row
   
4. ar = Sheets("01").Range("a7:j" & y)
   
5. y2 = Sheets("02").Range("b65536").End(xlUp).Row
   
6. br = Sheets("02").Range("a5:m" & y2)
   
7. For i = 1 To UBound(ar)
   
8.     For j = 1 To UBound(br)
   
9.         If ar(i, 2) = br(j, 2) And ar(i, 3) = br(j, 3) And ar(i, 4) = br(j, 5) Then
   
10.             ar(i, 5) = br(j, 8)
    
11.             ar(i, 6) = br(j, 9)
    
12.             ar(i, 7) = br(j, 10)
    
13.             ar(i, 8) = br(j, 11)
    
14.             ar(i, 9) = br(j, 7)
    
15.             ar(i, 10) = br(j, 6)
    
16.             Exit For
    
17.         End If
    
18.     Next j
    
19. Next i
    
20. Sheets("01").Range("a7").Resize(UBound(ar), 10) = ar
    
21. End Sub

复制代码

wtzlsn

france723 发表于 2017-5-18 15:53
工作表名字自己修改, 我用的是01,02

Sheets("01").Range("a7").Resize(UBound(ar), 10) = ar老师，这句是序号吗？好象运行不出来。

france723

wtzlsn 发表于 2017-5-22 15:06
Sheets("01").Range("a7").Resize(UBound(ar), 10) = ar老师，这句是序号吗？好象运行不出来。

你把工作表名称修改sheets("01"), 我的举例作表名称是 01.
如果你的工作表名称是 食材付款单, sheets("食材付款单")

wtzlsn

france723 发表于 2017-5-22 15:32
你把工作表名称修改sheets("01"), 我的举例作表名称是 01.
如果你的工作表名称是 食材付款单, sheets(" ...

Sheets("食材付款单").Range("a7").Resize(UBound(ar), 10) = ar

已经修改成这句了，就是没有显示序号。

france723

wtzlsn 发表于 2017-5-22 17:05
Sheets("食材付款单").Range("a7").Resize(UBound(ar), 10) = ar

已经修改成这句了，就是没有显示序号 ...

日期和名称条件你就是手写, 序号你也写入下拉即可