Locate duplicate values in a column, copy/paste adjacent value

[davidanaya11579]

I'm working on a report with thousands of entries. For some reason, the report only returns data in column C the first time a value appears in column B, for all subsequent entries of that value(B), Column C remains empty. I need to locate all duplicate values in column B, and copy the value of Column C into all subsequent entries.

Example of Raw Report:

LoadNum	Prim Load#	SSLine B/L
237098864	237098864
238921496	238921496	238921496WAW
240817258	240817258	240817258NGB
242967262	242967262	MSCUJR543586
245434172	242967262
242984183	242984183	HLCUCHI171002103
242988571	242988571	HLCUCHI171034120
242989105	242988571
242989108	242988571

<tbody>
</tbody><colgroup><col span="2"><col></colgroup>

 

[mumps]

If your data in column B is always sorted so that the same values are always together as in the sample you posted, then this macro should do what you want. Shouldn't the first value in column B (237098864) have data to the right in column C since it is the first time it appears? If you place a value in C2, the macro should work.

Sub CopyVal()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("C2:C" & LastRow)
        If rng = "" Then
            rng = rng.Offset(-1, 0)
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[davidanaya11579]

Mumps,

There will not always be data in column C, even when the value in column A is not a duplicate.