Copying cell contents from many cells and pasting into one cel
Thanks!
"Gord Dibben" wrote:
You could just combine using a formula on destination sheet.
=Sheet1!A1 & Sheet1!B1 and Sheet1!C1 etc.
Or a User Defined Function.......................
Function ConCatRange(CellBlock As Range) As String
Dim Cell As Range
Dim sbuf As String
For Each Cell In CellBlock
If Len(Cell.text) 0 Then sbuf = sbuf & Cell.text & " "
Next
ConCatRange = Left(sbuf, Len(sbuf) - 1)
End Function
=Sheet1!(A1:A10)
Or a macro.............................
Sub ConCat_Cells()
Dim x As Range
Dim y As Range
Dim z As Range
Dim w As String
Dim sbuf As String
On Error GoTo endit
w = InputBox("Enter the Type of De-limiter Desired")
Set z = Application.InputBox("Select Destination Cell", _
"Destination Cell", , , , , , 8)
Application.SendKeys "+{F8}"
Set x = Application.InputBox("Select Cells, Contiguous or Non-Contiguous", _
"Cells Selection", , , , , , 8)
For Each y In x
If Len(y.text) 0 Then sbuf = sbuf & y.text & w
Next
z = Left(sbuf, Len(sbuf) - Len(w))
Exit Sub
endit:
MsgBox "Nothing Selected. Please try again."
End Sub
Gord Dibben MS Excel MVP
On Mon, 10 Dec 2007 11:23:04 -0800, MDN wrote:
Hello
I'd like to copy the contents from a group of cells and then paste all of
those contents into one cell on a different worksheet. How can I do this?
|