複数の条件を使用して2つのワークブック間でデータをコピー

Question

レポートのコメント欄からマスターのコメント欄にデータをコピーしようとしています。私はVlookupとIf And関数を試しましたが、コピーする必要があるデータを特定するために複数の基準を使用しているため、機能しませんでした。私はコーディングに新しいですが、私は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

Answer 1

非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