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?
|