| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
separate two strings
What about my help?
"Max Bialystock" wrote: Gary, Thanks for your help. Max "Gary Keramidas" <GKeramidasATmsn.com wrote in message ... and if you wanted to trim the spaces Option Explicit Sub split_names() Dim ws As Worksheet Dim sName As Variant Dim i As Long Dim lastrow As Long Dim sAuthor As Long, sTitle As Long sAuthor = 3 ' column C sTitle = 4 ' column D Set ws = Worksheets("sheet1") lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To lastrow sName = Split(ws.Range("A" & i), ":") ws.Cells(i, sAuthor).Value = Trim(sName(0)) ws.Cells(i, sTitle).Value = Trim(sName(1)) Next End Sub -- Gary "Max Bialystock" wrote in message ... A cell contains an author's name and a book title separated by a colon. Charles Dickens : Great Expectations I need to get "Charles Dickens" into sAuthor and "Great Expectations" into sTitle. In this case there is always a space before and after the colon. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| separate strings | Excel Discussion (Misc queries) | |||
| how do i separate 2 strings of a cell in different cells? | Excel Worksheet Functions | |||
| Comparing character strings in separate cells | Excel Programming | |||
| Break up strings into separate cells | Excel Programming | |||
| Match data of two identical strings in two separate spreadhseets | Excel Discussion (Misc queries) | |||
Threaded Mode
