根据要求提取

app240913

有2列内容，一列中文名一列对应编号
如果产品不包含 固化 这两个字（任意其他内容或者空值，或者NA）就自动取编号第一个斜杠前面的内容
如果产品 包含 固化 这两个字 就取相应所在单元格往上第一个不包含 固化（任意其他内容或者空值，或者NA）的产品，取其对应的编号第一个斜杠前面的内容

shiruiqiang

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.10
   
2.     st = "固化"
   
3.     With ActiveSheet
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 5)
   
6.         For i = 6 To UBound(arr)
   
7.             If arr(i, 1) <> Empty Then
   
8.                 If InStr(arr(i, 1), st) = 0 Then
   
9.                     arr(i, 5) = Split(arr(i, 2), "/")(0)
   
10.                 Else
    
11.                    arr(i, 5) = arr(i - 1, 5)
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.         .[e1].Resize(r, 1) = Application.Index(arr, 0, 5)
    
16.     End With
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

app240913

ykcbf1100 发表于 2024-12-10 19:25
附件供参考。。。

可以把代码单独贴一下吗？下载你的文件提示损坏

ykcbf1100

app240913 发表于 2024-12-10 19:51
可以把代码单独贴一下吗？下载你的文件提示损坏

有的，正在审核。

xlj310

这个需要挺经典的，用公式试一下：
=SCAN("",A6:A24,LAMBDA(上一个编号,当前产品,IFERROR(IF(FIND("固化",当前产品),上一个编号,NA),TAKE(TEXTSPLIT(OFFSET(当前产品,,1),"/"),,1))))

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
6.         arr = .Range("a6:b" & r)
   
7.         ReDim brr(1 To UBound(arr), 1 To 1)
   
8.         For i = 1 To UBound(arr)
   
9.             If InStr(arr(i, 1), "固化") = 0 Then
   
10.                 brr(i, 1) = Split(arr(i, 2), "/")(0)
    
11.                 xm = brr(i, 1)
    
12.             Else
    
13.                 brr(i, 1) = xm
    
14.             End If
    
15.         Next
    
16.         .Range("c6").Resize(UBound(brr), UBound(brr, 2)) = brr
    
17.     End With
    
18. End Sub
    

复制代码

chxw68

参与一下。

cnmlgb9998

递归函数解千愁。。。。。。。。。。。。。。



还要什么VBA哦。。。。。。。。。。。