If your intention is to use a very similar program to the one you have
to do this task, then you can use a two-dimensional array.
dim v(4,3) '4 is number of things in e column, 3 is items associated
with each
' think of i as rows and j as columns
for i = 1 to 4
for j=1 to 3
v(i,j)=cells(i,j+1).value
next j
next i
' now you have your variable filled with the data you need. You just
have to put it into your spreadsheet now.
mark=1
for i=1 to 4
for j=1 to 3
range("B" & mark).value=v(i,j)
mark=mark+1
next j
next i
Carpe Diem wrote:
> Hi,
>
> I have this macro :
>
> Try:
>
> Sub col_row()
> v = Array(Cells(1, 2).Value, Cells(1, 3).Value, Cells(1, 4).Value,
> Cells(1,
> 5).Value)
> Range("A1:E1").Clear
> Range("A1:A3").Value = v(3)
> Range("B1").Value = v(0)
> Range("B2").Value = v(1)
> Range("B3").Value = v(2)
> End Sub
>
>
> this macro allows to copy the following data :
> A1 B1 C1 D1 E1
> Costs 100 200 125 2002562
>
> to:
> A1 B1
> 2002562 100
> 2002562 200
> 2002562 125
>
> But right now I have:
>
> A1 B1 C1 D1 E1
> Costs 100 200 125 2002562
> Cash 10 205 135 2002563
> Costs 100 200 125 2002564
> Cash 10 205 135 2002565
>
> How can I do the same ?
>
> A1 B1
> 2002562 100
> 2002562 200
> 2002562 125
> 2002563 10
> 2002563 205
> 2002563 135
> 2002564 100
> 2002564 200
> 2002564 125
> 2002565 10
> 2002565 205
> 2002565 135
>
> Can someone give a help?
>
> Thank you
|
Similar Threads
