concate
12345678910111213141516171819202122232425Attribute VB_Name = "ģ��1"Sub ConcatenateCell() Dim selectedRange As Range Dim cell As Range Dim concatenatedText As String If Selection.Cells.Count < 1 Then MsgBox "Please at least choose one cell", vbExclamation, "Error" Exit Sub End If Set selectedRange = Selection For Each cell In selectedRange concatenatedText = concatenatedText & cell.Value & "," Ne ...