excel有分列功能,能把一个单元格内容拆分开,但是并没有合并操作,有些插件可以做到,既然是学习练习,就自己动手写了一下这个功能
将如下的数据内容合并到一个单元格内,并用逗号隔开(我这里指定的是输出内容填写在第一行右侧第一个空单元格,可以做适当改变)
代码如下:
Sub 单元格内容合并()
Dim arr(), arr1() As Variant, lc, la As Integer, c, v, s As String
Application.DisplayAlerts = False
arr1 = Range("A1").CurrentRegion
lc = UBound(arr1, 1)
la = UBound(arr1, 2)
arr = Cells(2, 1).Resize(lc - 1, 1).Value
v = Cells(lc, 1).Value
For Each c In arr
s = s & c
If c <> v Then
s = s & ","
End If
Next
'Selection.Merge
Cells(1, la + 1).Value = s
Application.DisplayAlerts = True
End Sub