数据提取

loyual

求大神将已经分列转换好的C1-L1数据变成C4-L5样式的数据。谢谢！

梦幻的流星

这样可行
求助.zip (16.22 KB, 下载次数: 10)

2021-6-6 00:19 上传

点击文件名下载附件

624134745

C4=LEFTB(C1,SEARCHB("?",C1)-1)
C5=LOOKUP(9E+307,--MIDB(C1,SEARCHB("?",C1),ROW($1:$9)))

王志军单车菜腿

用的concat

当家的MAX

1. Sub test()
   
2. Dim Regex As Object, arr1, arr2(1 To 2, 1 To 1000), i%
   
3. Set Regex = CreateObject("vbscript.regexp")
   
4. arr1 = [a1].CurrentRegion.Value
   
5. arr2(1, 1) = arr1(1, 1): arr2(1, 2) = arr1(1, 2)
   
6. For i = 3 To UBound(arr1, 2)
   
7.     With Regex
   
8.         .Global = True
   
9.         .Pattern = "\D+"
   
10.         arr2(1, i) = .Execute(arr1(1, i))(0)
    
11.         .Pattern = "\d+"
    
12.         arr2(2, i) = .Execute(arr1(1, i))(0)
    
13.     End With
    
14. Next
    
15. [a4].CurrentRegion.Clear
    
16. [a4].Resize(2, UBound(arr1, 2)) = arr2
    
17. End Sub

复制代码

当家的MAX

王志军单车菜腿 发表于 2021-6-6 12:59
用的concat

=CONCAT(IFERROR(MID(C1,ROW($1:$50),1)+0,""))
这样生成空不生成空格是不是可以简短些...生成空格的话还得TRIM

273344

这样可以解决