Excel Data

babaty · Sep 25, 2018

Hello there,
Kindly help me with function/command that will arrange same value in the two columns given below:Thank you. View attachment ExcelData.xlsx

NBVC · Sep 25, 2018

Your request is unclear. Please elaborate.

babaty · Sep 25, 2018

NBVC said:
Your request is unclear. Please elaborate.

I want arrange the values that exist in column VRS and INTS to be in same row. The values that do not exist should be deleted.

Logit · Sep 25, 2018

.
Here is a VBA Macro method :

Code:

Option Explicit




Sub Listduplicates()
'Updateby Extendoffice 20160613
    Dim rngA As Range
   
    Set rngA = Range([A1], Cells(Rows.Count, "A").End(xlUp))
    Application.ScreenUpdating = False
    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
    
    Dim LR As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    Range("B2:B" & LR).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("B1").Value = "INTS"
    Sheets("Sheet1").Columns("C:C").Delete
    Application.ScreenUpdating = True
End Sub

Excel Data

babaty

New member

NBVC

Super Moderator

babaty

New member

Logit

Member

Attachments