LinkBack URL
About LinkBacks
hello everyone
i want function to separating the word to distributed characters in one cell like the attached file.
hello everyone
i want function to separating the word to distributed characters in one cell like the attached file.
How to install your new code
Function AddSpace(Str As String) As String Dim i As Long For i = 1 To Len(Str) AddSpace = AddSpace & Mid(Str, i, 1) & " " Next i AddSpace = Trim(AddSpace) End Function
Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Press Alt+F11 to open the Visual Basic Editor
Choose Insert > Module
Edit > Paste the macro into the module that appeared
Close the VBEditor
Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)
Then use:
=AddSpace(A3)
Glenn
None of us get paid for helping you... we do this for fun. So DON'T FORGET to say "Thank You" to all who have freely given some of their time to help YOU
Dear Sir:
You have my sincere thanks.
I appreciate your work and help me.
It's done.
Dear SirOriginally Posted by Glenn Kennedy
How to install your new codeFunction AddSpace(Str As String) As String Dim i As Long For i = 1 To Len(Str) AddSpace = AddSpace & Mid(Str, i, 1) & " " Next i AddSpace = Trim(AddSpace) End Function
Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Press Alt+F11 to open the Visual Basic Editor
Choose Insert > Module
Edit > Paste the macro into the module that appeared
Close the VBEditor
Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)
Then use:
=AddSpace(A3)
You gave me the best solution to the subject.
I appreciate your work.
Thank you very much.
Because you've Ex2016 you can try with PowerQuery (Get&Transform)
thnx
i have excel 2013
So update your profile
For Ex2013 you can get free add-in from MS
Last edited by sandy666; 10-06-2017 at 10:58 AM.
Or:
Function Add_Space(Str As String) As String Add_Space = Join(Split(StrConv(Str, vbUnicode), Chr(0)), " ") End Function
In some languages that rely on right-to-left typing, it does not work.Or:
Function Add_Space(Str As String) As String Add_Space = Join(Split(StrConv(Str, vbUnicode), Chr(0)), " ") End Function
Just succeeded in words in English and languages that start from left to right.
This can also be done if you have TEXTJOIN function
Enter in B3 and copy down
Formula:
=TRIM(TEXTJOIN(" ",1,INDEX(MID(A3,COLUMN(A:XX),1),0)))
v A B 1 2 3 TREE T R E E 4 EXCEL FORUM E X C E L F O R U M 5 SEPARATE WORDS BY INSERTING SPACES S E P A R A T E W O R D S B Y I N S E R T I N G S P A C E S 6 7
If you like my answer please click on * Add Reputation
Don't forget to mark threads as "Solved" if your problem has been resolved
"Nothing is so firmly believed as what we least know."
--Michel de Montaigne
Dear Sir:This can also be done if you have TEXTJOIN function
Enter in B3 and copy down
Formula:=TRIM(TEXTJOIN(" ",1,INDEX(MID(A3,COLUMN(A:XX),1),0)))
v A B 1 2 3 TREE T R E E 4 EXCEL FORUM E X C E L F O R U M 5 SEPARATE WORDS BY INSERTING SPACES S E P A R A T E W O R D S B Y I N S E R T I N G S P A C E S 6 7
I appreciate your work and help me but it did not work.
* I have Excel 2013
I changed your function to this
=TRIM(TEXTJOIN(" ";1;INDEX(MID(A3;COLUMN(A:XX);1);0)))
what's mean XX (A:XX)
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.
Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.
Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.
Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!
Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).
Thank you for providing detailed feedback. Very helpful.
And, of course...
You're welcome.
If that takes care of your original question, please select "Thread Tools" from the menu link above and mark this thread as SOLVED.
It'd also be appreciated if you were to click the Add Reputation button at the foot of any of the posts of all members who helped you reach a solution.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks