哪位老师来看看为何

数字迷 · 发表于 2020-3-17 09:39

为什么多提取个13？先谢

数字迷 · 发表于 2020-3-17 10:07

重新写一个也行，只要多于4个的能隔一个提取，分开两组就行

袁勇 · 发表于 2020-3-17 10:09

E：=IF(CEILING(LEN(TRIM(D2))/3,1)>4,TEXT(SUM(MID(D2,{1,7,13},2)*10^{4,2,0}),"00 00 00"),D2)

如果不存在“00”的情况下，F：=IF(CEILING(LEN(TRIM(D2))/3,1)>4,SUBSTITUTE(TEXT(MID(SUM((0&MID(D2,{4,10,16},2))/10^{2,4,6}),3,6),"00 00 00"),"00 ",),"")

静看流年RSSQ · 发表于 2020-3-17 10:32

乱写一个高版本的。忽略我就好。

E11
=IF(LEN(TRIM(D2))<14,D2,TEXTJOIN(" ",,MID(D2,{1;7;13},2)))
F11
=IF(E11=D2,"",TEXTJOIN(" ",,MID(D2,{4;10;16},2)))

数字迷 · 发表于 2020-3-17 10:58

我2007版的。好像都不行啊

wbperfect · 发表于 2020-3-17 11:52

Sub test()
On Error Resume Next
Dim str
Range("e2:f" & Cells(Rows.Count, "d").End(xlUp).Row).ClearContents
With ActiveSheet
For i = 2 To Cells(Rows.Count, "d").End(xlUp).Row
str = Cells(i, "d")
str = Trim(str)
nt = UBound(Split(str, " "))
For m = 0 To UBound(Split(str, " ")) Step 2
If nt >= 4 Then
Cells(i, "e") = Trim(Cells(i, "e").Text) & " " & Split(str, " ")(m)
Cells(i, "f") = Trim(Cells(i, "f").Text) & " " & Split(str, " ")(m + 1)
Else
Cells(i, "e") = str
End If
Next
Next
End With
End Sub

复制代码

wbperfect · 发表于 2020-3-17 11:53

++++++++++++++附件

hcm19522 · 发表于 2020-3-17 14:21

=IF(LEN(TRIM(D2))>11,(TEXT(SUM(MID(D2,{1,7,13},2)*10^{4,2,0}),"00 00 00")),D2)

=IF(LEN(TRIM(D2))>11,SUBSTITUTE(TEXT(SUM((0&MID(D2,{4,10,16},2))*10^{4,2,0}),"00 00 00")," 00",),"")

		自动登录	找回密码
密码			免费注册

[求助] 哪位老师来看看为何

评分

最新热点 /1