选中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
需要编写宏
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024