VB 查询指定数据并返回数据所在行整行数据

dbdbiq

利用Private Sub Worksheet_Change(ByVal Target As Range)
当sheet1 B2输入数据后自动查询sheet2 B列并把符合条件的数据整行返回到sheet1以第三行为起始的位置



新人求教，望老师们帮助。

dbdbiq

有人在么，求助~

dbdbiq

自己顶~~~~

funsz

VBA是要实际操作的，请上传附件

dbdbiq

funsz 发表于 2015-12-30 13:48
VBA是要实际操作的，请上传附件

附件已上传

funsz

dbdbiq 发表于 2015-12-30 13:57
附件已上传

你的表老卡，玩不来，等别人给你作答吧

dbdbiq

funsz 发表于 2015-12-30 15:07
你的表老卡，玩不来，等别人给你作答吧

额，能不能帮帮忙.....

bajifeng

第一次查询，结果放在第三行
第二次查询，结果是放在第三行还是放在第四行。
.
.
.
简而言之，就是下一次查询结果是否要覆盖之前的查询结果，
这点楼主得交代清楚。

dbdbiq

bajifeng 发表于 2015-12-30 17:03
第一次查询，结果放在第三行
第二次查询，结果是放在第三行还是放在第四行。
.

覆盖，第三行以下为实时更新，根据查询值决定，当查询值所在单元格为空时，则第三行以下为空

bajifeng

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$B$1" Then Exit Sub
   
3. Application.ScreenUpdating = False
   
4. Call db
   
5. Application.ScreenUpdating = True
   
6. End Sub
   
7. Sub db() 'bajifeng
   
8. [a3:f3] = ""
   
9. arr = Sheets(2).[a1].CurrentRegion
   
10. For i = 2 To UBound(arr)
    
11.     If InStr(arr(i, 4), [b1]) > 0 Then
    
12.     Sheets(2).Select
    
13.     Cells(i, 1).Resize(1, 6).Copy
    
14.     Sheets(1).Select
    
15.     [a3].PasteSpecial
    
16.     End If
    
17. Next
    
18. End Sub

复制代码