[發問] 如何用VBA搜尋兩工作表資料

ansonwen0107

請各位大大幫忙..很急~

目前有兩個產品類別 ,其目前兩產品分別在不同工作表 sheet A ,sheet B
(A產品與B產品流程是不一樣 )


sheetA : (目前產品A的現狀)

站點     產品批號 目前狀態 處置結果
yy1     aa9x10    hold            P
yy2     aa9x20    wait            Q
yy3     aa9x60    run             S
yy5     aa9x80    hold            P
.              .              .                 .
.              .              .                 .
.              .              .                .
.              .              .                .
yy99  aa9x81       run             Q

=====================

sheetB : (目前產品B的現狀)

站點              產品批號          目前狀態     處置結果
zz1              aa7x11         hold            P
zz5              aa7x21         wait            Q
zz3              aa7x61         run              S
zz6              aa7x81         hold            P
.                      .                   .              .
.                      .                   .              .
.                      .                   .              .
.                      .                   .              .
zz81           aa7x82          run           Q

========================
Sheet C: ( 依使用者輸入產品批號 ,帶出 站點 / 目前狀態 / 處置結果 )

產品批號 站點 目前狀態 處置結果
aa7x21
aa6x34
aa7x21
aa6x34
aa7x21
aa6x34
.
.
.
aa7x23

目前想要在另一工作表 sheetC 輸入一些產品批號 , 去搜尋SheetA ,
及Sheet B 相同的批號 , 且能帶出相同的站點 , 目前狀況及處置結果欄位
若sheetC 輸入一些產品批號,在SheetA 及Sheet B 中找不到 , 則在
sheetC 中的相對產品批號的目前狀況帶出 "ok" 訊息
( 另外所有sheetA , B, C 的產品批號數量都是不固定相同 )

GBKEE

回復 1# ansonwen0107
請附上範例檔 並說明之

Hsieh

回復 1# ansonwen0107

1. Sub searchdata()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each sh In Sheets(Array("a", "b"))
   
4.    With sh
   
5.      For Each a In .Range(.[B2], .[B65536].End(xlUp))
   
6.         d(a.Value) = Array(a.Offset(, -1).Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
   
7.      Next
   
8.     End With
   
9. Next
   
10. With Sheets("尋找")
    
11.    For Each a In .Range(.[A2], .[A65536].End(xlUp))
    
12.       a.Offset(, 1).Resize(, 3) = ""
    
13.       a.Offset(, 1).Resize(, 3) = d(a.Value)
    
14.    Next
    
15. End With
    
16. End Sub

複製代碼

ansonwen0107

回復 3# Hsieh


    謝謝老師~~~對於小弟受用很大~~~~