Excel编程：如何判断奇数和偶数行并分别求值

2025-03-19 07:34:18

推荐回答（5个）

回答（1）：

if i mod 2=0 then
range("B"& i)=range("B"& i-1)*1.1
else
range("B"& i)=range("B"& i-1)*0.9
end if

回答（2）：

sub test()
dim i as integer
dim n
 for i = 2 to 65536 '从第二行开始
      n = i mod 2
     if n = 1  then
         range("B"& i)=range("B"& i-1)*0.9
     else
         range("B"& i)=range("B"& i-1)*1.1
    end if
 next
 end sub

回答（3）：

mod(row(B1),2)=1(余数为1) 则为奇数行
mod(row(B1),2)=0 则为偶数行

回答（4）：

= 1 = 2 .9
else
range("B"i)=range("B"to B"& B"& 65536 '从第二行开始
sub test()
dim range("i mod 2
if n & i)=range(" i as integer
dim n
end if
next
end n = i-1)*1.1
& i-1)*0; for i then

回答（5）：

B2=BI*(MOD(1.1-ROW(B1),2)*0.2)