This site uses cookies.
Some of these cookies are essential to the operation of the site,
while others help to improve your experience by providing insights into how the site is being used.
For more information, please see the ProZ.com privacy policy.
Hans Lenting Netherlands Member (2006) German to Dutch
Mar 28
I'm looking for a macro to merge two adjacent cells either horizontally or vertically. The contents of the cells should be separated by a space character:
Desired result A1 becomes A1+space+A2 B3 becomes B3+space+B4
[Edited at 2024-03-29 08:25 GMT]
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Dan Lucas United Kingdom Local time: 16:50 Member (2014) Japanese to English
Seems simple enough
Mar 28
You mean in Excel, right. Something like this?
Sub Macro1() Application.DisplayAlerts = False NewString = Selection.Cells(1).Value & " " & Selection.Cells(2).Value 'Debug.Print NewString Selection.Merge Selection.Value = NewString 'Application.DisableAlerts = True End Sub
On your final use you probably want to set to true again.
Dan
Hans Lenting
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Hans Lenting Netherlands Member (2006) German to Dutch
TOPIC STARTER
Thanks
Mar 29
Thank you, Dan! You put me on the right track. This is what I needed:
Dan Lucas
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Dan Lucas United Kingdom Local time: 16:50 Member (2014) Japanese to English
VBA FTW
Mar 29
Glad it's working for you. I think it's wise to avoid merge if you can, and as you clearly have, as structural changes like that can mess up your worksheet pretty quickly.
I know it's fashionable to look down on things like VBA, but it's actually a very practical and handy language if you are working in Office a lot.
Dan
Hans Lenting
Subject:
Comment:
The contents of this post will automatically be included in the ticket generated. Please add any additional comments or explanation (optional)
Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.
Translate faster & easier, using a sophisticated CAT tool built by a translator / developer.
Accept jobs from clients who use Trados, MemoQ, Wordfast & major CAT tools.
Download and start using CafeTran Espresso -- for free