EXCEL中若A1单元格为0值（含空值时），怎么才能让有输入数值的B1单元格不显示？

B1单元格与A1没有关联公式，为独立单元格

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value = 0 Then
Range("B1").Font.Color = Range("B1").Interior.Color
Else
Range("B1").Font.Color = Range("A1").Font.Color
End If
End If
End Sub

用鼠标右键单击该工作表标签，选择“查看代码”，输入如下代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iRow, iRow1, i As Integer iRow = Range("A65536").End(xlUp).Row iRow1 = Range("B65536").End(xlUp).Row If iRow1 > iRow Then iRow = iRow1 For i = 1 To iRow If Cells(i, 1) = 0 Or Cells(i, 1) = "" Then If Cells(i, 2) <> "" Then MsgBox "删除B" & i Cells(i, 256) = Cells(i, 2) Cells(i, 2) = "" End If Else If Cells(i, 256) <> "" And Cells(i, 2) = "" Then Cells(i, 2) = Cells(i, 256) End If End If Next End Sub 将宏安全性设为中，重新打开文档时选择启用宏即可。

.......

选中行当题头——数据---筛选---自动筛选----再下拉处选空白