sub stor ()dim stor,shi as long
stor = ""
n = range("b3")
shi = range("a3")
do while stor >0
stor = shi mod n & stor
shi = shi / n
loop
range ("e3") =stor
end sub
vba十进制转二进制
原文：https://www.cnblogs.com/lyzifan/p/12259024.html
