Excel VBA - 如果单元格 A 等于 X，则自动复制并粘贴到单元格 B

Question

我目前有以下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2,B11,D11")) Is Nothing Then
        Application.EnableEvents = False
        For Each C In Target
            If Not Intersect(C, Range("B2,B11,D11")) Is Nothing And Not C.HasFormula Then _
                C.Value = UCase(C.Value)
        Next C
        Application.EnableEvents = True
    End If
End Sub

我需要添加另一个宏来基本上做：

如果 G6 = N/A 则复制并粘贴到 H6 中，否则什么也不做。

我应该如何添加这个？

Answer 1

根据您的问题，我不确定您希望如何将其包含在您的代码中，您的代码也会在您的 for 循环中打开一个 if 语句，但在外部将其关闭，我怀疑这是正确的.. 无论如何这里是代码将数据复制到 H6：

If (ActiveSheet.Range("G6").Value = "N/A") Then
    ActiveSheet.Range("H6").Value = ActiveSheet.Range("G6").Value
Else
    'do nothing     
End If