Matching columns and retaining result data

[AndyT88]

I have a complete list of all sample ID's in column A.

Column C shows the samples that have been tested for pH (and thier corresponding result in column D)

Column B is a duplicate list which inserts blanks using the following VBA code:

Sub Listduplicates()
    Dim rngA As Range
    Set rngA = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    rngA.Offset(0, 1).Columns.Insert
    With rngA.Offset(0, 1)
        .FormulaR1C1 = _
        "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
        .Value = .Value
    End With
End Sub

The Question: How do I now get the pH result (column D) to match with its corresponding Sample ID in column A?


Any help will be greatly appriciated. Many Thanks.

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Matching columns and retaining result data
and Matching columns and retaining result data
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Fluff]

How about

Sub Listduplicates()
   Dim rngA As Range, Rng As Range
   Set rngA = Range([A1], Cells(Rows.Count, "A").End(xlUp))
   rngA.Offset(0, 1).Columns.Insert
   With rngA.Offset(0, 1)
      .FormulaR1C1 = _
      "=IF(ISNA(MATCH(RC[-1],C[1],0)),"""",INDEX(C[1],MATCH(RC[-1],C[1],0)))"
      .Value = .Value
   End With
   For Each Rng In Range("B:B").SpecialCells(xlBlanks).Areas
      Rng.Offset(, 1).Resize(, 2).Insert xlShiftDown
   Next Rng
End Sub