将一列从一个工作簿复制并粘贴到另一个

Question

I have attached 2 screenshots:

I copied and paste in the K column but the values don't match. I want to copy and paste a columns from one workbook to another and default the values to that. I have the following code. My question is How do I make sure that the values from one source workbook defaults to the Target workbook? I know I can use vlookup for that but I don't know how to use it.

Sub test()
Dim wbkSrc As Workbook 'Source workbook
Dim wbkDest As Workbook ' Destination
Dim rSrc As Range 'Source range
Dim rDest As Range 'destination range

'set references to the workbooks

Set wbkDest = ActiveWorkbook
Set wbkSrc = Application.Workbooks.Open("C:\Users\jole.kk\AppData\Roaming\Microsoft\AddIns\CategoriesGLAccounts.xlsx")

'set references to the ranges

Set rDest = wbkDest.Worksheets("Report").Range("K:K")
Set rSrc = wbkSrc.Worksheets("Sheet1").Columns("B")
    
'copy from Source to Target

rSrc.Copy Destination:=rDest

'Close Source Workbook

wbkSrc.Close False

'Move

Columns("K:K").Select
Selection.Cut
Columns("J:J").Select
Selection.Insert Shift:=xlToRight

End Sub

Answer 1

I am not sure if this what you are looking for.

Sub test()
    Dim wbkSrc As Workbook 'Source workbook
    Dim wbkDest As Workbook ' Destination
    Dim rSrc As Range 'Source range
    Dim rDest As Range 'destination range

    Application.ScreenUpdating = False
    
    'set references to the workbooks
    Set wbkDest = ThisWorkbook
    Set wbkSrc = Application.Workbooks.Open("C:\Users\jole.kk\AppData\Roaming\Microsoft\AddIns\CategoriesGLAccounts.xlsx")
    
    ' Find last row in 'Category Name' column (9) in sheet report
    Dim lRow As Integer: lRow = wbkDest.Sheets("Report").Cells(Rows.Count, 9).End(xlUp).Row
    
    'set references to the ranges
    Set rDest = wbkDest.Worksheets("Report").Range("K2:K" & lRow)
    Set rSrc = wbkSrc.Worksheets("Sheet1").Range("A1").CurrentRegion
        
    'Lookup GL Account by Category Name
    rDest.FormulaR1C1 = Application.WorksheetFunction.VLookup(rDest.Offset(0, -2), rSrc, 2, 0)
    
    'copy to values
    rDest.Copy
    rDest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    'Close Source Workbook
    wbkSrc.Close False
    
    'Move
    Columns("K:K").Cut
    Columns("J:J").Insert Shift:=xlToRight
    
    Application.ScreenUpdating = True
End Sub