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

发布网友发布时间：2022-05-04 14:07

共5个回答

热心网友时间：2022-06-22 19:52

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追问

追答这是一个Macro中的片段，
我以为你自己会写一部分的
好吧，
你自始至终也没有提到i 从哪里来
i 是怎么来的？循环？从A 列第1行到最后一行？

热心网友时间：2022-06-22 19:53

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

热心网友时间：2022-06-22 19:53

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

热心网友时间：2022-06-22 19:54

= 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

热心网友时间：2022-06-22 19:55

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