提取单元格各行的内容

wgreen

#在这里=TEXTSPLIT(A2,CHAR(10))快速回复#

499279666

1. =REGEXP(A2,".+")

复制代码

10贪生pass

1. Sub kk()
   
2.     Set a = ActiveSheet
   
3.     x = a.UsedRange.Rows.Count
   
4.     Set rege = CreateObject("vbscript.regexp")
   
5.     rege.Global = True
   
6.     rege.Pattern = "[\u4e00-\u9fa5]+\d+\s+\d+/\d+\s+\d+:\d+"
   
7.     For i = 2 To x
   
8.         k = 2
   
9.         Set m = rege.Execute(a.Cells(i, 1))
   
10.         For Each l In m
    
11.             a.Cells(i, k) = l
    
12.             k = k + 1
    
13.         Next
    
14.     Next
    
15. End Sub
    

复制代码

小小白君

=TRANSPOSE(FILTERXML("<a><b>"&SUBSTITUTE(A2,CHAR(10),"</b><b>")&"</b></a>","a/b"))

mjm04

=TEXTSPLIT(A2,CHAR(10))

下拉

我的城市你来过

龙逸凡

公式一：
=REGEXP(A2,".+")
.代表除换行符以外的所有字符。用它，刚好排除掉换行符。


公式2：
=REGEXP(A2,"\N+")
\n是换行符，\N是非换行符。

槐序三冬

1. Sub prectise()
   
2.     Set a = ActiveSheet
   
3.     Set regx = CreateObject("vbscript.regexp")
   
4.     x = a.UsedRange.Rows.Count
   
5.    
   
6.     regx.Pattern = "[\u4e00-\u9fa5]+\d+\s+\d+/\d+\s+\d+:\d+"
   
7.     regx.Global = True
   
8.    
   
9.     For i = 2 To x
   
10.     j = 2
    
11.         Set m = regx.Execute(a.Cells(i, 1))
    
12.         For Each m_value In m
    
13.             a.Cells(i, j) = m_value
    
14.             j = j + 1
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码

守候_CJ

Office 365，第二行这样写公式：
=TEXTSPLIT(A2,CHAR(10))