单元格F10是一个下拉串列，提供是、否或可以设定为空白。这是由使用资料验证串列的命名串列生成的，源设定为我的命名串列。

当一个选项被选中F10或单元格被清除时，我想更新H10。

If F10 = YesthenH10应该包含Allowed, If F10 = Noor is emptyH10应该是空的，但是用户可以编辑。

我需要将其复制到同一作业表上的其他行。

我花了最后一个小时谷歌搜索，但还没有找到任何方法来做到这一点。

有人可以建议如何做到这一点。谢谢

uj5u.com热心网友回复：

打开 VBA 编辑器并将此代码输入到作业表模块中（默认情况下它名为Sheet1 (Sheet1)）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    For Each cell In Target
      If cell.Column = 6 And cell.Row >= 10 And cell.Column <= 100 Then
        If cell.Value = "Yes" Then
          cell.Offset(0, 2).Value = "Allowed"
        Else
          cell.Offset(0, 2).Value = ""
        End If
      End If
    Next cell
    Application.EnableEvents = True
End Sub

请注意，比较区分大小写 - 您可能希望将其更改为 If LCase([F10]) = "yes" Then ...