Question

excel 中如何根据引用单元格的值添加删除线

如题，比如若A1单元格中的值大于零，则B1单元格中的文本加上删除线，反之则不加。

Answer 1

选中B1,格式,条件格式,公式,输入=A1>0,格式,字体,特殊效果,删除线,确定

Answer 2

要VBA才能实现
if range("A1")>0 then
range("B1").select
selection.font.strikethrough=true
end if

Answer 3

选中所有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

Answer 4

需要编写宏