根据要求提取

usedrange

。。。。。。。。。。。。。。。。。

usedrange

1. Sub tt()
   
2.     Dim ar, i%, t
   
3.     With Sheet1
   
4.         m = .Cells(.Rows.Count, 1).End(3).Row
   
5.         ar = .[a6].Resize(m - 5, 3)
   
6.         For i = 1 To UBound(ar)
   
7.             If InStr(ar(i, 1), "固化") Then
   
8.                 ar(i, 3) = t
   
9.             Else
   
10.                 t = Split(ar(i, 2), "/")(0)
    
11.                 ar(i, 3) = t
    
12.             End If
    
13.         Next i
    
14.         .[c6].Resize(UBound(ar), 1) = WorksheetFunction.Index(ar, 0, 3)
    
15.     End With
    
16. End Sub

复制代码

守候_CJ

第6行：

=IF(ISNUMBER(FIND("固化",A6)),E5,INDEX(TEXTSPLIT(B6,"/"),,1))

或

=IF(ISNUMBER(FIND("固化",A6)),E5,REGEXEXTRACT(B6,"[^/]+",0))

下拉填充