vba - Excel 将一系列单元格值复制到剪贴板

Question

我想将一系列单元格(仅值/文本)复制到剪贴板，这样用户就不必仅在将特殊值粘贴到另一个电子表格时才粘贴特殊值。

这是我目前所拥有的:

Private Sub CommandButton1_Click()
    With New DataObject
        .SetText Range("A32:Q32").Text
        .PutInClipboard
    End With
    'Range("A32:Q32").Copy
End Sub

这给了我一个运行时错误

94 Invalid use of Null

如果我只使用注释掉的代码 Range.("A32:Q32").Copy 它会复制公式，除非用户进行特殊粘贴，否则他们会得到各种引用错误。

Answer 1

有点复杂，但是获取文本 > 清除剪贴板 > 放回文本:

[A32:Q32].Copy
With New DataObject
    .GetFromClipboard
    s = .GetText
    .Clear
    .SetText s
    .PutInClipboard
End With

Range.Text 当区域中的各个单元格文本不同时返回 Null。