VBA，如果改变的是C列或者F列，则打印A

在Visual Basic for Applications (VBA) 中，如果你想要监视并跟踪对特定列（比如C列或F列）的修改，并在这些列发生变化时打印出相应的行（A列），你可以通过监听Worksheet的Change事件来实现。下面是一个简单的示例，假设我们有一个名为Sheet1的工作表：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oldRng As Range
    Set oldRng = Application.Union(Range("A:A"), Target) ' 获取更改前包括A列的旧范围

    ' 确保只有C列或F列发生了变化
    If Not Intersect(Target, Union(Cells(1, 3), Cells(1, 6))) Is Nothing Then ' C列为3, F列为6
        ' 打印变更行的A列值
        Debug.Print "Column " & Target.Column & ": Row " & Target.Row & " has been modified in A1"
    End If
End Sub

这段代码会在C列或F列的单元格内容改变时触发，打印出受影响的行号以及列标识。