Concatenate A1, B1, and C1 into D1
 

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

Concatenate A1, B1, and C1 into D1
 

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. Id like to concatenate all three
cells into one sentence in cell D1. Does anyone have code that can do that?

Concatenate A1, B1, and C1 into D1
 

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. Id like to concatenate all three
cells into one sentence in cell D1. Does anyone have code that can do that?