Copying data

[601488]

Help - please! Below is an example of a simple spreadsheet I've got. The numbers on the left represent row numbers. The six digit numbers represent our internal item numbers.

I want to be able to copy 101500 into rows 2 & 3, copy 106250 into rows 5, 6 & 7, and copy 107254 into row 10. The actual list is very long so I don't want to spend time copying and pasting.

I think there may be a way of doing this using CtrlG - special - and highlighting blanks but I'm not sure.

Any ideas please.

1 101500
2
3
4 106250
5
6
7
8 107000
9 107254
10
11 111254

Thank you
Jon

 

[VoG]

Select the column of numbers.

Press F5, click Special, tick Blanks, click OK.

Press =

Press Up arrow

Hold down CTRL and press Enter.

 

[Richard Schollar]

Hi Jon

1. Select your column
2. Hit F5 and then the Special button. On the Goto dialog select Blanks then OK
3. Type = and press the up cursor key and confirm with Ctrl+Enter
4. Copy and pastespecial values over the column to fix the formulas just created

 

[601488]

Many, many thanks for the prompt and accurate replies

Thank you!

 

[Sektor]

Adjust upper value.

Sub G()

    Dim i As Long, v As Variant
    
    For i = 1 To 11
        If Not IsEmpty(Cells(i, "A")) Then
            v = Cells(i, "A")
        Else
            Cells(i, "A") = v
        End If
    Next

End Sub