Compare and replace if equal
Hi Peter
Solution 1: Using function (This will provide the value in column D)
Paste this formula in D1...... =VLOOKUP(C1,A$1:B$5,2,FALSE)
Adjust B$5 to the number of rows you have in column A and B
Drag the same formula to the other cells in Column D.
Solution 2: Macro. Launch VBE using Alt+F11. On the left treeview, right
click 'This Workbook' -- Insert-- Module . Paste the below code. Goto
workbook. Paste your values in column C. Run Macro1 from Tools--Macro
If this post helps please click Yes
---------------
Jacob Skaria
Sub Macro1()
Dim intRowA As Integer
Dim intRowC As Integer
intRowC = 1
Do While Range("C" & intRowC) < ""
intRowA = 1
Do While Range("A" & intRowA) < ""
If Range("C" & intRowC) = Range("A" & intRowA) Then
Range("C" & intRowC) = Range("B" & intRowA)
Exit Do
End If
intRowA = intRowA + 1
Loop
intRowC = intRowC + 1
Loop
End Sub
|