选中B1,格式,条件格式,公式,输入=A1>0,格式,字体,特殊效果,删除线,确定
要VBA才能实册友现
if range("A1")>庆液0 then
range("誉姿物B1").select
selection.font.strikethrough=true
end if
选中所有A列你要处理的数据,宽掘执行下面这个宏就可以了乎纤。
Sub Macro1()
Dim R As Range
For Each R In Selection
If R >岁巧仿 0 Then
R.Offset(0, 1).Font .Strikethrough = True
End If
Next R
End Sub
需要编写宏