问题：请教各位大师有没有方法自动实现行数据合并成列数据并添加符号

南建军

问题：请教各位大师有没有方法自动实现行数据合并成列数据并添加符号

咔咔乱坠

B2下拉
=IF(LEN(A2)>2,TEXTJOIN(",",,OFFSET(A3,,,IFNA(MATCH(1=1,LEN(A3:A30)>2,)-1,9))),"")

祝洪忠-

颜色合并测试.rar (9.4 KB, 下载次数: 5)

2024-3-21 15:37 上传

点击文件名下载附件

南建军

南建军

咔咔乱坠 发表于 2024-3-21 15:33
B2下拉
=IF(LEN(A2)>2,TEXTJOIN(",",,OFFSET(A3,,,IFNA(MATCH(1=1,LEN(A3:A30)>2,)-1,9))),"")

你好，按照你提供的公式实现不了，请指教！谢谢

高个子

有这个文本连接并添加符号需求，2016版Excel建议升级至2019及以上，这样这里的所有方法都可以使用了。

南建军

好的，谢谢

tmplinshi

1. =IF(ISTEXT(A2),REPLACE(CONCAT(","&OFFSET(A2,1,,IFERROR(SMALL(IF(ISTEXT($A$1:$A$21)*(ROW($A$1:$A$21)>ROW()),ROW($A$1:$A$21),""),1)-1,ROWS($A$1:$A$21))-ROW())),1,1,),"")

复制代码

swl4561255

公式用不了，用VBA解决：

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Range("A2:A" & ar)
   
4. For i = ar - 1 To 1 Step -1
   
5.   If Len(arr(i, 1)) = 2 Then
   
6.      s = s & "," & arr(i, 1)
   
7.   Else
   
8.      s = arr(i, 1) & ":" & Chr(10) & Mid(s, 2)
   
9.      Range("B" & i + 1) = s
   
10.      s = ""
    
11.   End If
    
12. Next
    
13. End Sub

复制代码