提取单元格内多行数据

huanghai22

新版本软件表示毫无压力，旧版本就自定义含数来使用

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.7
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     [b4:c1000] = ""
   
4.     For i = 4 To r
   
5.         s = Cells(i, 1)
   
6.         b = Split(s, Chr(10))
   
7.         Cells(i, 2) = Split(b(0))(1)
   
8.         Cells(i, 3) = Split(b(1))(1)
   
9.     Next
   
10.     MsgBox "OK！"
    
11. End Sub

复制代码

ykcbf1100

数据比较有规律，可以不用正则

wbjjzhu

1. =INDEX(TEXTSPLIT(A4,{" ","弄"}),0,2)
   
2. =INDEX(TEXTSPLIT(A4,{" ","弄"}),0,4)

复制代码

练习下：

wbjjzhu

用香川老师的正则表达式自定义函数,也可以方便求出结果:

1. =TQ(A4,1,"\b(\d*\.\d*)\b")
   
2. =TQ(A4,3,"\b(\d*\.\d*)\b")

复制代码

https://club.excelhome.net/thread-1088768-1-1.html?_dsign=32697e5e