求助，多条件文本问题

prowl

请教：表里的内容，如果是A列内容如果含有“片”或者“胶囊”，则在B列，显示为口服剂型，如果A列内容含有“注射液”或者“注射用”，则在B列显示“注射剂”。

quqiyuan

用公式方便的
=IF(MIN(IF(ISNUMBER(FIND({"注射";"片";"胶囊"},A1)),ROW($1:$3)))=1,"注射剂","口服剂")

xlj310

B1=IF(LEN(A1)-LEN(SUBSTITUTES(A1,{"片";"胶囊"},""))=0,IF(LEN(A1)-LEN(SUBSTITUTES(A1,{"注射液";"注射用"},""))=0,A1,"注射剂"),"口服剂型")
C1=IF(REGEXP(A1,"(注射液|注射用)",1),"注射剂",IF(REGEXP(A1,"(片|胶囊)",1),"口服剂型",A1))

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, r&
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A1:A" & r).Value
    ReDim br(1 To UBound(ar), 0)
   
    For i = 1 To UBound(ar)
        If InStr(ar(i, 1), "片") Or InStr(ar(i, 1), "胶囊") Then
            br(i, 0) = "口服剂型"
        ElseIf InStr(ar(i, 1), "注射液") Or InStr(ar(i, 1), "注射用") Then
            br(i, 0) = "注射剂"
        End If
    Next i
        
    [B1].Resize(UBound(br)) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

张小生

1. Sub test3()
   
2. Dim x%, ar
   
3. ar = Range("a1:b" & Range("a100000").End(xlUp).Row)
   
4. For x = 1 To UBound(ar)
   
5. 
   
6.     If InStr(1, ar(x, 1), "片") > 0 Or InStr(1, ar(x, 1), "胶囊") > 0 Then
   
7.         ar(x, 2) = "口服剂型"
   
8.     ElseIf InStr(1, ar(x, 1), "注射用") > 0 Or InStr(1, ar(x, 1), "注射液") > 0 Then
   
9.         ar(x, 2) = "注射剂"
   
10.     Else
    
11.         ar(x, 2) = "条件不足，无法判断"
    
12.     End If
    
13. Next x
    
14. Range("a1").Resize(UBound(ar), 2) = ar
    
15. End Sub

复制代码

张小生

1. Sub test3()
   
2. Dim x%, ar
   
3. ar = Range("a1:b" & Range("a100000").End(xlUp).Row)
   
4. For x = 1 To UBound(ar)
   
5.     If InStr(1, ar(x, 1), "片") > 0 Or InStr(1, ar(x, 1), "胶囊") > 0 Then
   
6.         ar(x, 2) = "口服剂型"
   
7.     ElseIf InStr(1, ar(x, 1), "注射用") > 0 Or InStr(1, ar(x, 1), "注射液") > 0 Then
   
8.         ar(x, 2) = "注射剂"
   
9.     Else
   
10.         ar(x, 2) = "条件不足，无法判断"
    
11.     End If
    
12. Next x
    
13. Range("a1").Resize(UBound(ar), 2) = ar
    
14. End Sub
    

复制代码

prowl

gwjkkkkk 发表于 2024-10-27 15:54
请参考。。。

感谢老师的回答

yanglinzi

yanglinzi

参与一下。。