I have data in Column A1, B1, and C1. I’d like to concatenate all three
cells into one sentence in cell D1. Does anyone have code that can do that?

Hi,

I'm guessing here that it's not just A1, b1 & C1 you want but if you do why
not this in d1

=a1&b1&c1

If it's a column of data then try this

Sub marine()
Dim lastrow As Long
Dim C As Range
Set sht = Sheets("Sheet1") 'Change to suit
lastrow = sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = sht.Range("A1:A" & lastrow)
For Each C In MyRange
C.Offset(, 3) = C & C.Offset(, 1) & C.Offset(, 2)
Next
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"TGalin" wrote:

> I have data in Column A1, B1, and C1. I’d like to concatenate all three
> cells into one sentence in cell D1. Does anyone have code that can do that?

Eureka! just what the doctor ordered. Thank you my friend this operates very
well.

"Mike H" wrote:

> Hi,
>
> I'm guessing here that it's not just A1, b1 & C1 you want but if you do why
> not this in d1
>
> =a1&b1&c1
>
> If it's a column of data then try this
>
> Sub marine()
> Dim lastrow As Long
> Dim C As Range
> Set sht = Sheets("Sheet1") 'Change to suit
> lastrow = sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row
> Set MyRange = sht.Range("A1:A" & lastrow)
> For Each C In MyRange
> C.Offset(, 3) = C & C.Offset(, 1) & C.Offset(, 2)
> Next
> End Sub
>
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "TGalin" wrote:
>
> > I have data in Column A1, B1, and C1. I’d like to concatenate all three
> > cells into one sentence in cell D1. Does anyone have code that can do that?