VBA学习练习-将多个单元格内容合并

最新推荐文章于 2025-06-13 09:35:33 发布

Nameikeshi

最新推荐文章于 2025-06-13 09:35:33 发布

阅读量4.6k

点赞数 4

CC 4.0 BY-SA版权

文章标签： excel vba

本文链接：https://blog.youkuaiyun.com/Numix/article/details/121693848

这篇博客介绍了一种方法，通过VBA代码实现Excel中多个单元格内容的合并，以逗号分隔，作为学习实践项目。作者提供了一个Sub过程，能够将指定范围内的单元格内容合并到第一行右侧的第一个空白单元格中，方便数据整理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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