![]() |
#5
|
|||
|
|||
![]()
Activate or click on the cell that has the string and run this macro it will put the spaced string in the next cell down. Assume its on Sheet1
Sub SpaceText () With Selection Zrow = .Row + 1 Zcol = .Column End With With Worksheets("Sheet1") .Cells(Zrow, Zcol) = "" For I = 1 To Len(Selection.Text) .Cells(Zrow, Zcol) = .Cells(Zrow, Zcol) & Mid(Selection.Text, I, 1) & " " Next End With End sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Kilconey | Excel | 1 | 04-30-2010 09:42 AM |
Splitting Excel cell into multiple | ruben23 | Excel | 1 | 07-23-2009 03:49 AM |
Auto-populate an MS Word table cell with text from a diff cell? | dreamrthts | Word Tables | 0 | 03-20-2009 01:49 PM |
Excel error: "Too many different cell formats" | enviroko | Excel | 0 | 01-09-2008 07:27 AM |
![]() |
heron | Word | 1 | 12-06-2005 02:37 AM |