选中B1,点菜单的插入,名称,定义,名称处输入 abc,下面的引用位置处输入 =GET.CELL(63,A1) ,确定。在B1输入 =IF(abc=0,2,1)公式向下复制。
写自定义函数如下:Function color(a) As StringIf (a.Interior.ColorIndex > 0) Thencolor = "条件1"Elsecolor = "条件2"End IfEnd Function在b1单元格输入“=color(A1)”然后向下复制即可