On Nov 7, 11:38*am, Don Guillett wrote:
Should do it. You don't need to put anything in the column to the
left. Excel will do it.

Sub copynumbersif()
Dim mc As Long
Dim i As Long
mc = 2 'if column B
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Cells(i - 1, mc) = Cells(i, mc) Then
Cells(i - 1, mc - 1) = Cells(i, mc)
Cells(i, mc - 1) = Cells(i, mc)
End If
Next i
End Sub

===

It didn't work.

I re-posted on: microsoft.public.excel.programming

On Nov 7, 1:56*pm, gary wrote:
On Nov 7, 11:38*am, Don Guillett wrote:

Should do it. You don't need to put anything in the column to the
left. Excel will do it.

Sub copynumbersif()
Dim mc As Long
Dim i As Long
mc = 2 'if column B
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Cells(i - 1, mc) = Cells(i, mc) Then
Cells(i - 1, mc - 1) = Cells(i, mc)
Cells(i, mc - 1) = Cells(i, mc)
End If
Next i
End Sub

===

It didn't work.

I re-posted on: microsoft.public.excel.programming

What does " it didn't work" mean. I tested. All you had to do was
change
mc = 2 to whatever column you are testing.