将多个单元格的内容合并到一个单元格中

Question

我有用A1，B1，C1，D1等写的300个名字...... 我希望它们在一个单元格中，每个名称用逗号分隔。

我已经尝试了很多自动化连接函数&，但徒劳无功。看到拖动单元格和这样的东西不起作用。

任何提示感谢

Answer 1

试试这个小宏：？

Sub KonKat() 
    stt = Cells(1, 1).Value 
    For i = 2 To 300 
     stt = stt & ", " & Cells(1, i).Value 
    Next i 
    Cells(2, 1).Value = stt 
End Sub 

结果将被放置在细胞A2

Answer 2

使用VB得到的答复....谢谢:)

Sub MergeOneCell() 
'Updateby20140128 
Dim Rng As Range 
Dim WorkRng As Range 
Dim Sigh As String 
On Error Resume Next 
xTitleId = "KutoolsforExcel" 
Set WorkRng = Application.Selection 
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) 
Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) 
xOut = "" 
Application.DisplayAlerts = False 
For Each Rng In WorkRng 
xOut = xOut & Rng.Value & Sigh 
Next 
With WorkRng 
.Merge 
.Value = VBA.Left(xOut, VBA.Len(xOut) - 1) 
End With 
Application.DisplayAlerts = True 
End Sub