检查组中只有一个Excel列具有值

Question

假设我在Excel中有三列和两行。所有三列的第一行相同。如何检查（或强制执行）第二行中只有一个单元格被填充（其他单元格必须为空）？

现在让我们假设我有三个这样的列组（总共九列和三个不同的标题行值）并再次，我希望每个组只有一个（或没有）列具有值，其他必须是空的。也就是说，这9列中最多可以出现三个值 - 每列一列。

如何轻松或至少有效地完成这项工作？谢谢！

Answer 1

我建议将三个 COUNTBLANK 函数嵌入到 IF 函数中。

示例：

  

= IF（AND（COUNTBLANK（A2：C2）= 2，COUNTBLANK（E2：F2）= 2，COUNTBLANK（G2：I2）= 2），“每组一个值”，“其他”）

Answer 2

这将监控第1行下方 A ， B 和 C 列中的条目。如果连续多个条目，则将清除最后一个条目。将以下代码放在工作表代码区域中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim N As Long

    If Target.Row > 1 And Target.Column < 4 Then
        With Application.WorksheetFunction
            N = Target.Row
            If .CountA(Range("A" & N & ":C" & N)) > 1 Then
                Application.EnableEvents = False
                    Target.Clear
                Application.EnableEvents = True
            End If
        End With
    End If
End Sub