仅 VBA 复制粘贴值 - VBA

在 VBA 中，复制和粘贴数据是很常见的操作，但有时我们只关心值而不是格式或公式。本文将介绍如何使用 VBA 仅复制和粘贴值。

复制值

要仅复制单元格的值，请使用 Range 对象的 Value 属性。以下是一个简单的示例：

Sub CopyValues()
    Range("A1").Copy
    Range("B1").Value = Range("A1").Value
End Sub

在上面的代码中，首先使用 Copy 方法复制 A1 单元格的内容，然后使用 Value 属性将值粘贴到 B1 单元格。

我们还可以使用 Copy 方法复制整个 Range，如下所示：

Sub CopyRangeValues()
    Range("A1:A5").Copy
    Range("B1:B5").Value = Range("A1:A5").Value
End Sub

在上面的代码中，我们使用 Copy 方法复制 A1 到 A5 的范围，然后使用 Value 属性将值粘贴到 B1 到 B5 的范围。

粘贴值

要仅粘贴单元格的值，请使用 Range 对象的 Value 属性。以下是一个示例：

Sub PasteValues()
    Range("B1").Select
    Selection.Copy
    Range("C1").Select
    ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

在上面的代码中，我们首先选择 B1 单元格并将其复制到剪贴板。然后，我们选择 C1 单元格并使用 PasteSpecial 方法向 C1 单元格粘贴只包含值的内容。

我们还可以使用以下代码将单元格 A1 的值粘贴到单元格 B1：

Sub PasteValues()
    Range("B1").Value = Range("A1").Value
End Sub

在上面的代码中，我们使用 Value 属性将 A1 单元格的值粘贴到 B1 单元格。

结论

以上是使用 VBA 仅复制和粘贴值的方法。使用这些技术，您可以快速地将值从一个单元格复制到另一个单元格，而不必担心格式或公式的影响。