(若是和其他不同软件互动之问题 请记得一并填写)
软件:office
版本:2019
其中一段 功能是
我有N个特定产品名称 产品甲～产品庚
......
Range("A2").Select
For i = 1 To 30
chkV1 = ActiveCell.Offset(0, 1).Value
ckVF = IIf(InStr(1, chkV1, "产品甲", 1) <> 0, "产品甲", _
IIf(InStr(1, chkV1, "产品乙", 1) <> 0, "产品乙", _
IIf(InStr(1, chkV1, "产品丙", 1) <> 0, "产品丙", _
IIf(InStr(1, chkV1, "产品丁", 1) <> 0, "产品丁", _
IIf(InStr(1, chkV1, "产品戊", 1) <> 0, "产品戊", _
IIf(InStr(1, chkV1, "产品己", 1) <> 0, "产品己", _
IIf(InStr(1, chkV1, "产品庚", 1) <> 0, "产品庚", _
"")))))))
If ckVF = "" Then
......
这种是前一个人写的
里面很多用这种IIF语法
如果要精简加未来好写好扩充
请问要怎么改写