VBA - 如何將數據從工作簿複製到VBA中的masterfile？

Question

美好的一天！請幫我在這..

1. 我想將數據從這些列ID代碼，名稱，店鋪，產品代碼， 品牌，表格，天，分類和銷售使用VBA複製

2. 將這些值粘貼到「主文件」（模板）到其所需的列。

請幫助我，我是新來的VBA。

Answer 1

把它放在ThisWorkbook中，修改路徑和文件名，它應該做，你想要什麼。它將採用第一個文件的所有數據集。要修改數據範圍，您可以將var「FirstDataSet」鏈接到單元格，它將從那裏開始或保存它複製的最後一行。這個問題在本網站上被問及幾百次回答。

Public Sub Data() 
Dim wbk As Workbook 
Dim Filename As String 
Dim Path As String 
Dim sht, msht As Worksheet 
Dim lRowFile, lRowMaster As Long 
Dim FirstDataSet As Integer 

On Error Resume Next 

Path = "C:\Users\User\Desktop\Files\" 
Filename = "1.xlsx" 

    Set wbk = Workbooks.Open(Path & Filename) 

    Set sht = Workbooks(Filename).Worksheets(1) 'First Sheet in File 
    Set msht = ThisWorkbook.Worksheets(1) 'First Sheet in Master 

    lRF = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 'Last Row in File 
    lRM = msht.Cells(Rows.Count, 2).End(xlUp).Row 'Last Row in Master 
    FirstDataSet = 2 'First Data Set in File 

    For i = FirstDataSet To lRF 
     lRM = msht.Cells(Rows.Count, 2).End(xlUp).Row 'Last Row in Master 
     msht.Range("B" & lRM + 1).Value = sht.Range("A" & i).Value 'ID 
     msht.Range("C" & lRM + 1).Value = sht.Range("B" & i).Value 'Name 
     msht.Range("E" & lRM + 1).Value = sht.Range("C" & i).Value 'Store 
     msht.Range("F" & lRM + 1).Value = sht.Range("D" & i).Value 'Product Code 
     msht.Range("I" & lRM + 1).Value = sht.Range("F" & i).Value 'Brand 
     msht.Range("J" & lRM + 1).Value = sht.Range("G" & i).Value 'Form 
     msht.Range("K" & lRM + 1).Value = sht.Range("H" & i).Value 'Days 
     msht.Range("L" & lRM + 1).Value = sht.Range("I" & i).Value 'Category 
     'msht.Range("M" & lRM + 1).Value = sht.Range("K" & i).Value 'Sales 
    Next i 
    'This 
    sht.Range("K2:AV" & lrF).Copy _ 
    Destination:= msht.Range("K2") 
    wbk.Close True 
End Sub