同一单元的数据按逗号分行并单元格显示

blackttea1

在A 列中有多个数据以逗号隔开，现要求有逗号的，以逗号为界将其在同单元格中分行显示。没有逗号的则不分行显示，便于观看；B为最终演示的结果，再求将A列的分行显示并保留在A列中。

shiruiqiang

INaga2018

C列设置换行，公式下拉
C2=SUBSTITUTE(A2,",",","&CHAR(10))

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.25
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     r = Me.Cells(Rows.Count, "a").End(xlUp).Row
   
6.     arr = Me.Range("a1:b" & r)
   
7.     On Error Resume Next
   
8.     For i = 2 To UBound(arr)
   
9.         If arr(i, 1) = Empty Then
   
10.             arr(i, 2) = Empty
    
11.         Else
    
12.             If InStr(CStr(arr(i, 1)), ",") = 0 Then
    
13.                 arr(i, 2) = CStr(arr(i, 1))
    
14.             Else
    
15.                 st = ""
    
16.                 b = Split(CStr(arr(i, 1)), ",")
    
17.                 For j = 0 To UBound(b)
    
18.                     st = st & "," & Chr(10)
    
19.                 Next
    
20.                 arr(m, 2) = Mid(st, 2)
    
21.             End If
    
22.         End If
    
23.     Next
    
24.     Me.Columns("A:B").NumberFormatLocal = "@"
    
25.     Me.Range("a1:b" & r) = arr
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

qline302

INaga2018 发表于 2024-1-25 10:43
C列设置换行，公式下拉
C2=SUBSTITUTE(A2,",",","&CHAR(10))

真是思路决定出路，学习了

blackttea1

谢谢各位的指导，shiruiqiang符合我的要求，ykcbf1100的程序运行后只有