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