单元格中的内容以逗号分隔，如何用函数拆分到不同单元格

lg0219

lg0219 发表于 2019-5-10 10:56
谢谢，我去试试。数据长度不会超过20，逗号数量不会超过10。

再请教一下，如果想得出A2中有几个逗号，应该用什么公式？

lg0219

wljzhengzh 发表于 2019-5-10 10:58
=TRIM(MID(SUBSTITUTE(A$2,",",REPT(" ",99)),(ROW(A1)-1)*99+1,99))

再请教一下，如果想得出A2中有几个逗号，应该用什么公式？

wljzhengzh

lg0219 发表于 2019-5-10 14:01
再请教一下，如果想得出A2中有几个逗号，应该用什么公式？

=LEN(A2)-LEN(SUBSTITUTE(A2,",",))

木已成舟了

借鉴公式，稍加改动解决了困惑自己许久的问题，但是没有完全理解公式内涵，太深奥！

冬不暖

1. =IFERROR(INDEX(FILTERXML("<a><b>"&SUBSTITUTE($A$1,",","</b><b>")&"</b></a>","//b"),ROW(A1)),"")

复制代码

niko88819

VBA

1. Sub rowsplit()
   
2.     Dim r As Range, t() As String
   
3.     Dim result() As String
   
4.     Dim n As Long, i As Long, j As Long
   
5.     Application.ScreenUpdating = False
   
6.     Set r = Range("A1").CurrentRegion
   
7.     Range("E:E").ClearContents
   
8.     n = 0
   
9.     For Each c In r
   
10.         t = Split(Trim(c), ",")
    
11.         For i = 0 To UBound(t)
    
12.             If t(i) <> "" Then
    
13.                 n = n + 1
    
14.                 ReDim Preserve result(1 To n)
    
15.                 result(n) = t(i)
    
16.             End If
    
17.         Next i
    
18.     Next c
    
19.     If n > 0 Then
    
20.         Range("E1").Resize(n).Value = WorksheetFunction.Transpose(result)
    
21.     End If
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码