excel - Excel如果任何单元格为Y，则所有其他单元格为N

我需要一些关于Excel公式的建议。
我有6个单元格（A1至A6）-如果其中任何一个为“ Y”，那么我希望所有其他单元格自动填充为“ N”。
有没有办法做到这一点？

最佳答案

尝试以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("A1:A6")    'set rng as A1:A6
    If Not Intersect(Target, Target.Worksheet.Range("A1:A6")) Is Nothing Then
        Application.EnableEvents = False
        If UCase(Target) = "Y" Then 'check if entered value is Y
            rng.Value = "N"         'make cells N
            Target = "Y"
        End If
        Application.EnableEvents = True
    End If
End Sub

将VBA代码插入Excel工作簿


在Excel中打开您的工作簿。
按Alt + F11打开Microsoft Visual Basic编辑器。
在编辑器窗口的左上角的Project-VBAProject窗格下，双击要使用代码的工作表名称。
复制上面的VBA代码并将其粘贴到VBA编辑器的右窗格中。
最后，更改Range A1:A6中的值，您将获得所需的结果。


若要了解如何在工作簿中输入此代码，请参见this。