CopyOrigin on Excel VBA中的插入

在 Excel VBA 中，CopyOrigin 是一个属性，用于设置或返回单元格的复制源。当您将一个单元格的值复制到另一个单元格时，CopyOrigin 属性可以帮助您追踪原始单元格的位置。

以下是一个简单的示例，演示如何在 Excel VBA 中使用 CopyOrigin 属性：

Sub CopyOriginExample()
    Dim sourceCell As Range
    Dim destinationCell As Range

    ' 设置源单元格和目标单元格
    Set sourceCell = Worksheets("Sheet1").Range("A1")
    Set destinationCell = Worksheets("Sheet1").Range("B1")

    ' 将源单元格的值复制到目标单元格
    destinationCell.Value = sourceCell.Value

    ' 设置目标单元格的 CopyOrigin 属性
    destinationCell.CopyOrigin = sourceCell.Address(False, False)
End Sub

在这个示例中，我们将 Sheet1 中的 A1 单元格的值复制到 B1 单元格。然后，我们将 B1 单元格的 CopyOrigin 属性设置为 A1 单元格的地址。这样，如果您以后需要找到 B1 单元格的原始数据来源，可以通过检查其 CopyOrigin 属性来轻松地找到。

需要注意的是，CopyOrigin 属性只适用于单元格的值和格式的复制操作，不适用于其他类型的操作，例如剪切、粘贴特殊操作等。