trillicomm
Board Regular
- Joined
- Feb 24, 2002
- Messages
- 101
How do I modify this script below (belongs to BabyTiger) to transform from this:
WORD:
abash
abess
abate
to this:
WORD:
abash
abash
abash
abess
abess
abess
abate
abate
abate
----------------
Range("A2").Select
Do While Range("A2").Offset(1, 0).Value <> ""
Range("A" & Range("A2").End(xlDown).Row & ":A" & Range("A2").End(xlDown).Row + 1).Insert Shift:=xlDown
Loop
----------------
WORD:
abash
abess
abate
to this:
WORD:
abash
abash
abash
abess
abess
abess
abate
abate
abate
----------------
Range("A2").Select
Do While Range("A2").Offset(1, 0).Value <> ""
Range("A" & Range("A2").End(xlDown).Row & ":A" & Range("A2").End(xlDown).Row + 1).Insert Shift:=xlDown
Loop
----------------