有没有什么办法使一行单元格中当一个为1时其余单元均为0

发布网友发布时间：2023-09-10 20:46

共2个回答

热心网友时间：2024-12-12 00:16

可以使用“宏”实现。具体思路如下：
1、在需要处理的行右边插入一个命令按钮。
2、为插入的命令按钮添加具体的代码，代码按一定的顺序（从左往右）检查指定行中的单元格的数值是否等于1，如果找到有数值等于1的单元格，就把除这个单元格以外的单元格中的内容更改成“0”，如果没有找到数值等于1的单元格，就不作处理。
代码示例：以Sheet1工作表的第一行为例，单元格范围A1:H1
Private Sub CommandButton1_Click()
Dim i As Integer, cveq1 As Boolean
Dim j As Integer

For i = 1 To 8 '检查A1:H1是否含有数值等于1的单元格
If Sheet1.Cells(1, i) = 1 Then
cveq1 = True ‘表示在A1:H1中找到数值等于1的单元格
Exit For
End If
Next

If cveq1 Then '如果在A1:H1中找到数值等于1的单元格时，就对其它单元格进行“变0”处理
For j = 1 To 8
If j <> i Then
Sheet1.Cells(1, j).Value = 0
End If
Next
End If
End Sub

如果对你有帮助，记得采纳答案哦！

热心网友时间：2024-12-12 00:16

比如要在Z列作判断，可在Z1输入公式：
=IF(HOUR(A1)<6,"符合","")
再将公式向下拉填充复制就将符合的单元格标记了。

但如果要统计符合条件单元格的数量，可用公式：
=SUM(IF(HOUR(A1:A16)<6,1,""))
摁键盘上的 SHIFT＋CTRL＋回车结束公式的输入即可。
如果对你有帮助，多给我加分哦。呵呵