Board logo

標題: [發問] 如何將比對兩欄資料放到另一個活頁簿 [打印本頁]
作者: smath815    時間: 2015-6-14 01:42     標題: 如何將比對兩欄資料放到另一個活頁簿

小弟這有一個程式當資料庫的B欄=F欄 ,C欄=G欄則H欄會帶出A欄的值

請教先進是否可以改成在活頁簿"Test"A欄="資料庫"B欄 ,"Test"B欄="資料庫"C欄 則"Test"C欄會帶出"資料庫"A欄,"Test"D欄會帶出"資料庫"D欄

"資料庫"
Part No.        Name        NOTE        DATA
1        A        OK        NA
2        B        OK        NA
3        C        OK        NA
4        D        OK        NA
5        E        OK        NA

"Test"
Name        NOTE        Part No.        DATA
A        OK               
C        OK               
E        OK
  1. Option Explicit

  3. Sub Lib()

  5.     Dim Rng, Ar, R As Range, i As Integer, ii As Integer
  6.    
  7.     Ar = Range("A1").CurrentRegion.Value    '資料庫
  8.    
  9.     i = [MATCH(H1,A1:C1,0)]  '比對所有條件
  10.    
  11.     Set Rng = Range("F1", Range("F1").End(xlDown)).Resize(, 2)
  12.    
  13.     For Each R In Rng.Rows
  14.    
  15.         For ii = 1 To UBound(Ar, 1)
  16.         
  17.             If R.Cells(1, 1) & R.Cells(1, 2) = Ar(ii, 2) & Ar(ii, 3) Then
  18.             
  19.                R.Cells(1, 3) = Ar(ii, 1)
  20.                
  21.                 Exit For
  22.             End If
  23.         Next
  24.     Next

  26. End Sub
複製代碼




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