hi ginase,

assume that the data is on Sheet1, account numbers are in the range A1:A50 and part numbers in the range B1:B350
the result will be placed on Sheet2


Sub test()
Dim i As Integer, x As String, y As String, n As Integer
For i = 1 To 17500 Step 350
n = n + 1
With Sheets("Sheet2")
Sheets("Sheet1").Range("A" & n).Copy .Range(.Cells(i, 1), .Cells(i + 349, 1))
Sheets("Sheet1").Range("B1:B350").Copy .Range(.Cells(i, 2), .Cells(i + 349, 2))
Application.CutCopyMode = False
End With
Next
End Sub


--
isabelle




Le 2012-04-24 10:48, ginase a écrit :
I'm sure there's a way to do this but just can't seem to get it. I have
two separate lists in Excel. One is customer account numbers, of which
there are 50, and one is part numbers, of which there are 350. Each
account number only appears once and each part number only appears once.


I need to upload these to another program and so need to create an Excel
sheet where in column A I have each account number listed and in column
B I have each part number listed (meaning that each account number will
be listed 350 times as there will be one row for each part number
against that account number). In total there will be 17500 entries.
What I'm trying to avoid doing is having to copy and paste to achieve
this!

I'd appreciate any help :)