Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Sub Macro1()
Sheets("Sheet2").Columns("A").Cut
Sheets("Sheet2").Columns("F").Insert
Sheets("Sheet2").Columns("A:B").NumberFormat = "@"
Sheets("Sheet2").Range("D1:D" & CStr(LastRow(Sheets("Sheet2")))).FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2])"
Sheets("Sheet1").Columns("A").Insert
Sheets("Sheet1").Range("A1").Value = "NEW_UCID"
Sheets("Sheet1").Range("B1").Value = "OLD_UCID"
Sheets("Sheet1").Range("A2:A" & CStr(LastRow(Sheets("Sheet1")))).Formula = _
"=VLOOKUP(CONCATENATE(C2,D2),Sheet2!$D$1:$E$" & CStr(LastRow(Sheets("Sheet2"))) & ",2,FALSE)"
End Sub
Matt
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
I'll clean up your subroutine to get rid of the .select statements and similar, it will speed things up a bit.