毎日更新されるExcelワークブックの特定のデータをメインのExcelワークブックにコピーするコードが必要です

Question

私は多くのテーブルを持つメインのExcelワークブック（1）を持っていますが、 productnumber________name_______surname_______price

             xxx 

（2）のような列を含む別のブックを持っています。 productnumber_city_______company_______price

何を試しましたか？

ワークブック1に10000個の製品がありますが、ワークブック2には500個の製品がありますので、他のシートの "productnumber"を参照して（xxx）セルにVLOOKUP関数を使用すると、毎日更新ワークブックに十分productnumberの欠如に起因する細胞（2）

2番目のブックには、（2）毎日更新されていると私はちょうど私のメインのワークブック（1）に毎日の価格をコピーして貼り付けると

これを行う最短の方法は何ですか？どうすればVBAを使ってそれを行うことができますか？どのコードが私を助けますか？

が

Answer 1

あなたのオブジェクトの名前についての十分な情報を持っていることのショートは、自分の名前に、この作業コードを適応してみてくださいありがとう：

Sub refreshPrices() 
    Dim cel As Range, wbNewPrices As Workbook, v 
    Set wbNewPrices = Workbooks.Open("C:\SO\newPrices.xlsm") 
    For Each cel In ThisWorkbook.Sheets(1).Range("Table1[productnumber]") 
     v = Application.VLookup(cel.value, wbNewPrices.Sheets(1).Range("Table1"), 4, 0) 
     If Not IsError(v) Then cel.Offset(, 3).value = v 
    Next 
    wbNewPrices.Close False 
End Sub