2016-05-12 73 views
0

我試圖將數據從報告的評論列複製到主人的評論列。我已經嘗試過Vlookup和If和函數,但他們沒有工作,因爲我使用多個標準來識別需要複製的數據。我是編碼新手,但我相信VBA代碼是解決方案。使用多個條件在兩個工作簿之間複製數據

有人發佈了類似的東西,但沒有標識多個標準的使用。這是他們的崗位

Sub Copydata() 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

Dim x As Workbook 
Dim y As Workbook 

Set x = Workbooks.Open("C:\Users\User1\Documents\Workbook1.xlsx") 
Set y = Workbooks.Open("C:\Users\User1\Documents\Workbook2.xlsx") 
With x.Sheets("Sheet1").UsedRange 
    'Now, paste to y worksheet: 
    y.Sheets("Sheet2").Range("A1").Resize(_ 
     .Rows.Count, .Columns.Count) = .Value 
End With 
x.Close 
y.Close SaveChanges:=True 
End Sub 

下面是2個工作表的不同的工作簿

摘錄報告

Report

Master

+0

'不標識使用多個criteria'的,如果你學習的代碼,它不能識別_any_標準XD – findwindow

回答

0

非VBA解決方案: 在「主」選項卡的其中一列中,連接您正在查找的條件。在「報告」選項卡上以相同的方式連接標準。然後使用連接標準查找的VLOOKUP或INDEX-MATCH。

簡單的例子:

FNames  LNames Concat    Comment 
Bill  Smith =Concatenate(A1,B1) =VLOOKUP(C1, Report!D1:D2) 
John  Jones =Concatenate(A1,B1) =VLOOKUP(C2, Report!D1:D2) 

報告

FNames  LNames Concat    Comment 
Bill  Smith =Concatenate(A1,B1) Bill report submitted 
John  Jones =Concatenate(A1,B1) John report not submitted 
+0

它的工作!謝謝!我加入了標準,以便更容易識別,因此VLookup能夠工作! –

相關問題