如果单元格值发生更改，则仅将单元格值发生更改列复制到另一个工作表中，但不复制两个工作表中的公共值

Sub CopyChangedValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:A10") ' 设置源范围，可以根据实际情况修改
    Set targetRange = targetSheet.Range("A1") ' 设置目标范围，可以根据实际情况修改
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查单元格的值是否发生了更改
        If cell.Value <> cell.Value2 Then
            ' 将发生更改的单元格的值复制到目标范围中
            targetRange.Value = cell.Value
            ' 将目标范围向下移动一行，以便复制下一个发生更改的单元格的值
            Set targetRange = targetRange.Offset(1, 0)
        End If
    Next cell
End Sub