Thread
:
divide a string words separated by (number)
View Single Post
#
4
June 4th, 2010, 01:33 AM posted to microsoft.public.excel.misc
ferde
external usenet poster
Posts: 141
divide a string words separated by (number)
Thank you for the help
"Don Guillett" wrote:
Sub SplitCellswith()
For Each n In Range("h2:h6")
c = Application.Substitute(n, " ", "")
p1 = InStr(1, Trim(c), ")")
p2 = InStr(p1 + 1, c, ")") + 1
p3 = InStr(p1 + 1, c, "(") - 1
n.Offset(, 1) = Mid(c, p2, 256)
n.Offset(, 0) = Mid(c, p1 + 1, p3 - p1)
Next n
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"ferde" wrote in message
...
I would like to have the data that is in one cell parsed into two cells
like
in the example below. The data is always separated by a consecutive whole
number in parenthesis . Thank you
A
(1.) White Dog (2.) Black Cat
A B
White Dog Black Cat
.
ferde
View Public Profile
View message headers
Find all posts by ferde
Find all threads started by ferde