最佳答案:用宏自定义函数吧。同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码:functionjisuan(xrngasrange)dimiasintegerifxrng.value<&g
用宏自定义函数吧。同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码:
functionjisuan(xrngasrange)
dimiasinteger
ifxrng.value<>".1"andxrng.value<>".2"andxrng.value<>".3"then
jisuan=""
exitfunction
endif
i=1
ifxrng.value=".1"then
dowhilexrng.offset(-i,0).value=".1"orxrng.offset(-i,0).value=".2"orxrng.offset(-i,0).value=".3"
i=i+1
loop
jisuan=xrng.offset(-i,3).value*xrng.offset(0,3)
else
dowhilexrng.offset(-i,0).value=xrng.value
i=i+1
loop
jisuan=xrng.offset(-i,4).value*xrng.offset(0,3)
endif
endfunction
回到excel,在e3输入=jisuan(a3),回车后将公式向下复制到e13。