標題: [發問] 抓取資料庫對應值之方式請教 [打印本頁]

---

作者: rouber590324    時間: 2015-1-30 08:14     標題: 抓取資料庫對應值之方式請教

DEAR ALL 大大
1.大家好想請問大家以下資料轉置該如何用vba完成
2.原始資料如下
(sheet1)
第一欄    第二欄
       A            
    A            
    B            
    B                           
    C
    .......           
(sheet2)
第一欄    第二欄                  
    A       1              
    B       2
    C       3   
   .....
3.SHEET1 之第二欄要抓取以 SHEET1之第一欄 A1-A66536為KEY 抓取對應 SHEET2之第一欄 A1-A66536之相同內容之SHEET2之第二欄
      對應值至 SHEET1之第二欄.
    3.1  已函數為例. SHEET1之第二欄 B1=INDIRECT("Sheet2!B"&MATCH(A1,Sheet2!A:A,0))
4.請問如何使用  VAB達成此需求  THANKS*10000

---

作者: diolin    時間: 2015-1-30 09:49

回復 1# rouber590324


    用 vlookup 就好了

VBA 就用 Worksheetfunction.vlookup

---

作者: rouber590324    時間: 2015-1-30 14:47

DEAR diolin  SIR
感謝指導.已完成  THANKS*1000

Private Sub Worksheet_Change(ByVal Target As Range)

With Target

If .Row >= 1 And .Column = 9 Then

  .Offset(0, 12) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 2, False)
  .Offset(0, 13) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 3, False)
  .Offset(0, 14) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 4, False)
  .Offset(0, 15) = Application.VLookup(.Value, Sheets("規格檔").[A1:E65536], 5, False)

End If

End With

End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)