Excel VBA - 如果Cell A等于X则自动，然后复制并粘贴到Cell 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