Hi, The following code will split the content in column "K" by using "|" as a border key, but would like place another condition to move the cells in different columns based on the character found in the cell.
Sub Split_content()
Dim objRange1 As Range
'Set up the ranges
Set objRange1 = Range("K6:K66")
'Do the parse
objRange1.TextToColumns _
Destination:=Range("K6"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
End Sub
Attached a sample data:
- Sheet1 : Represent the actual data,
- Sheet2 : Represent the desired result within sheet1 (*the result
should be in sheet1*).
I really appreciated if you can give me the modified code on this.
Thanks in advance.
Jimmy
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
Frequency.xls
Description: MS-Excel spreadsheet
