比如我在圖一指定位置輸入相應的產品規格，客戶，定重。然后能夠實作在圖二的表格里將符合條件的那一行查詢出來，并復制到圖一的指定位置A7位置，求大神幫忙
uj5u.com熱心網友回復：
Sub dls()
Dim i As Long
Dim arr, brr, d
Dim max_row As Long
max_row = Sheet2.[a:d].Find("*", , xlValues, , , xlPrevious).Row '獲取資料串列最大行
arr = Sheet2.Range("a2:d" & max_row) '串列賦值到陣列arr
Set d = CreateObject("scripting.dictionary") '新建字典
For i = 1 To UBound(arr) '字典賦值
d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4)
Next
brr = Sheet1.Range("b2:b4")
If d.exists(brr(1, 1) & brr(2, 1) & brr(3, 1)) Then '如果字典存在滿足查詢的條件，則。。。
Sheet1.Range("a7:d7").Clear
Sheet1.Range("a7:d7") = Application.Transpose(brr)
Sheet1.Range("d7") = d(brr(1, 1) & brr(2, 1) & brr(3, 1))
Else: MsgBox "no" '如果不存在，則.....
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25192.html
標籤：VBA
上一篇：求助vba代碼