allocating specific range of data to each value in a cell.

[kshitij_dch]

I am working on a sheet where i have 500 A1 to A500 Id's .

I have a range of data from F1 to F300.

Manually allocating the data to each cell in A column is time consuming .

is it possible to create a macro that will allocate range of data against each cell in column A .

For Example

A1 - 123 Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
A2 - 345 Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
A3 - 678 Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300
Allocated data F1 to F300

 

[kshitij_dch]

I think Line break will be better

 

[My Aswer Is This]

Try this:

Sub Copy_Values()
Dim c As Range
    For Each c In Range("F1:F300")
        r = r & c.Value & vbNewLine
    Next
Cells(1, 1).Value = r
End Sub

 

[kshitij_dch]

yes its working but it is only copying in one cell . need macro to loop each cell in column A and paste data

 

[My Aswer Is This]

Well column A has 1.5 million cells
So you want F1:F300 copied into all 1.5 million cells?

 

[kshitij_dch]

is is possible that macro will loop in column A till it finds value and if it finds a blank cell , macro come out of loop ? ?

 

[My Aswer Is This]

The only way it would find a empty cell in column A would be if there is nothing in Range("F1:F300")

 

[kshitij_dch]

allright....Thanks a ton for your help