(若是和其他不同软件互动之问题 请记得一并填写)
软件: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语法
如果要精简加未来好写好扩充
请问要怎么改写

使用Array 跟 Filter网络上的范本: https://reurl.cc/2oLAlO

用阵列改的话就 https://imgur.com/zo4UUoN抱歉改成这个 https://imgur.com/zMSZvsC

对喔 Range 我原本的方法才能抓资料抓下去再请教一下 Range("a:a") 不包含 A1标题 要如何写

Range("A2:A" & Rows.Count)