合并列内容到一个单元格内

静听溪流

天地一相 发表于 2023-6-11 20:49
谢谢，是的。可否请你就我附件里的内容直接给我一个结果。

随便单元格输入=a1:a16
鼠标选中=a1:a16
然后按F9  
去掉头尾的{}就可以了

quqiyuan

vba


Private Sub 合并()
    Dim i%, x$
    For i = 1 To Me.Cells(1048576, 1).End(3).Row
        If Me.Cells(i, 1) <> "" Then x = x & ";" & Me.Cells(i, 1)
    Next
        Me.Cells(1, 2) = Application.Substitute(x, ";", "", 1)
End Sub

或者pq都可以
上传文件参考。

天地一相

静听溪流 发表于 2023-6-11 20:57
随便单元格输入=a1:a16
鼠标选中=a1:a16
然后按F9  

神奇的建议！！！谢谢啊，

静听溪流

天地一相 发表于 2023-6-11 21:10
神奇的建议！！！谢谢啊，

       不用客气

人间油物

天地一相 发表于 2023-6-11 20:48
WPS 很会骚扰人啊

呃，骚扰是指啥？我没被骚扰过≡

人间油物

天地一相 发表于 2023-6-11 21:10
神奇的建议！！！谢谢啊，

你为何不送花表示感谢呢

天地一相

人间油物 发表于 2023-6-11 22:15
你为何不送花表示感谢呢

让你猜一猜把吧

咔咔乱坠

人间油物 发表于 2023-6-11 22:14
呃，骚扰是指啥？我没被骚扰过

哈哈哈，应该是指wps频繁修改默认图片打开方式、我的电脑界面会有一个wps云盘之类的吧

人间油物

咔咔乱坠 发表于 2023-6-12 08:21
哈哈哈，应该是指wps频繁修改默认图片打开方式、我的电脑界面会有一个wps云盘之类的吧

这个好像也没遇到过