Excel如果任何单元格是Y，那么所有其他单元格都是N.

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

Answer 1

尝试下面的代码

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工作簿

1. 在Excel中打开您的工作簿。
2. 按Alt + F 11打开Microsoft Visual Basic编辑器 。
3. 在编辑器窗口的左上angular，在Project-VBAProject窗格下，双击想要的代码工作表的名称。
4. 复制上面的VBA代码并将其粘贴到VBA编辑器的右侧窗格中。
5. 最后，改变Range A1:A6的值，你应该得到想要的结果。

要知道如何在工作簿中input此代码，请参阅此 。