If  i  =  45  Or  i  =  53  Or  i  =  105  Or  i  =  157  Or  i  =  165  Then

已经很简了.没.

谢了

select cae i
case i '相当于If i = 45 Or i = 53 Or i = 105 Or i = 157 Or i = 165 Then
.
.
.
.
end select

补充:
用这个方法就要看你i有多少个值了,如果只有你语句中的值就行!

当然有，你可以这样：
dim datas as string
datas="45,53,105,157,165"
if instr(datas,str(i))<>0 then
......
end if
这样看起来虽然好象比你的还要复杂，但是如果数据非常多我这个就有优势了，而且容易维护

if i=('45','53','105','157','165') then
不知道这样可不可以哦

当然不行了