Change the structure of words?
 

Is there a way to change this input:

twenty four Number of hours for earth to rotate around its axis.
laser Monochromatic light
proton Positively charged particle of an atom.
acceleration Force equals mass times ____________.




To this format which can then be picked up by a program?

twenty four
laser
proton
acceleration
*
Number of hours for earth to rotate around its axis.
Monochromatic light
Positively charged particle of an atom.
Force equals mass times ____________.



In essence, a script would take all the words in column A and spread
them vertically over rows instead.

Then the next row after that would have an aseterisk, as shown above.

And then all the explanations of the words/phrases in column B would
be listed vertically, also now in column A, underneath the asterisk.

I could do this manually but I have many rows to work with and it
would be quite time-consuming.

Thank you so much! :oD

Change the structure of words?
 

On Sun, 09 Aug 2009 22:33:29 -0500, StargateFan
wrote:

Is there a way to change this input:

twenty four Number of hours for earth to rotate around its axis.
laser Monochromatic light
proton Positively charged particle of an atom.
acceleration Force equals mass times ____________.




To this format which can then be picked up by a program?

twenty four
laser
proton
acceleration
*
Number of hours for earth to rotate around its axis.
Monochromatic light
Positively charged particle of an atom.
Force equals mass times ____________.

[snip]

Oops, forgot to mention that row A is a header row. Sorry. <g

Change the structure of words?
 

sub test()

dim i as integer


with range("A2")
for i = 0 to 3
.offset(i,3).value = .offset(i,0).value
.offset(i+5,3).value = .offset(i,1).value
next i
.offset(4,3).value = "*"
end with


end sub

"StargateFan" wrote:

On Sun, 09 Aug 2009 22:33:29 -0500, StargateFan
wrote:

Is there a way to change this input:

twenty four Number of hours for earth to rotate around its axis.
laser Monochromatic light
proton Positively charged particle of an atom.
acceleration Force equals mass times ____________.




To this format which can then be picked up by a program?

twenty four
laser
proton
acceleration
*
Number of hours for earth to rotate around its axis.
Monochromatic light
Positively charged particle of an atom.
Force equals mass times ____________.

[snip]

Oops, forgot to mention that row A is a header row. Sorry. <g

Change the structure of words?
 

On Mon, 10 Aug 2009 00:48:01 -0700, Sam Wilson
wrote:

sub test()

dim i as integer


with range("A2")
for i = 0 to 3
.offset(i,3).value = .offset(i,0).value
.offset(i+5,3).value = .offset(i,1).value
next i
.offset(4,3).value = "*"
end with


end sub

Thank you! Will give this a try later today. :oD

"StargateFan" wrote:

On Sun, 09 Aug 2009 22:33:29 -0500, StargateFan
wrote:

Is there a way to change this input:

twenty four Number of hours for earth to rotate around its axis.
laser Monochromatic light
proton Positively charged particle of an atom.
acceleration Force equals mass times ____________.




To this format which can then be picked up by a program?

twenty four
laser
proton
acceleration
*
Number of hours for earth to rotate around its axis.
Monochromatic light
Positively charged particle of an atom.
Force equals mass times ____________.

[snip]

Oops, forgot to mention that row A is a header row. Sorry. <g