Excel中，如何实现：当A1里不为零时，B1为1并以红色填充。

b1=if（a1=0,"",1）
然后选中b1或者是B列,选择菜单中的格式>>条件格式>>分别为
单元格数值，等于，1，格式。
至于你想用什么色填充就随便了。

用判断语句，事先把单元格颜色该成红色的步骤用宏功能录制下来，然后用语句调用宏就可以了。