Concatenate and Bold two columns

[loisl]

This is so stupid but I have been googling for ages and still can't figure out how I've done this before so I'm hoping someone can help!

I have two columns - A and B. I want to join A to B into column C, but keep the format of column A bold. I'm sure the macro for this is straightforward but I honestly can't remember it. Can anyone help? Thanks!

 

[gallen]

Hello and welcome.

Wasn't sure which columns you wanted bold but that is easy enough. This code will need altering to suit your data. Make sure to test on a COPY...:D

Sub ConcatenateColumns()


    'assuming data starts on row 1


    Dim lr As Long 'last row in column a & b (used for both)
    Dim nr As Long 'next blank row in column c
    
    
    'last row in col A
    lr = Range("A" & Rows.Count).End(xlUp).Row
    
    'copy column A to start of column C.
    Range("A1:A" & lr).Copy Range("C1")
    
    'last row in col B
    lr = Range("B" & Rows.Count).End(xlUp).Row
    
    'last row in col c
    nr = Range("C" & Rows.Count).End(xlUp).Row + 1
    
    'copy column A to start of column C
    Range("B1:B" & lr).Copy Range("C" & nr)
    
    'To set a column to Bold:
    Range("C1").EntireColumn.Font.Bold = True
    
    
End Sub

 

[bobsan42]

If I understand correctly, you want the text in column C which came from column A to be bold.
Try this:

    With Range("C1")        .Value = .Offset(0, -2).Value & " " & .Offset(0, -1).Value
        .Characters(Start:=1, Length:=Len(.Offset(0, -2).Value)).Font.FontStyle = "Bold"
    End With

I will leave to you to sort out the ranges and the loops

 

[loisl]

Thanks, I think I didn't explain this very well! I have
A1: John Smith B1: Organisation

and want to make

A1: John Smith B1: Organisation C1: John Smith Organisation

I managed to do it yesterday but only for row A, and have now lost the code I used. Going swimmingly!

 

[loisl]

I've done it in HTML so we can all stand down! Thanks for the suggestions, I will endeavour to improve my skills so I don't cheat next time!