excel - VBA脚本将单元格内容范围复制到剪贴板，不带引号

Question

我想使用 VBP 脚本将单元格内容从 E24 复制到 E90 范围内，不带引号。

这是我从网上找到并修改的脚本。当我设置范围 E24:E90 时，它会给我一个“类型不匹配”错误，一个单元格可以正常工作，但我需要一次性复制一系列内容。

Dim doClip As DataObject
Dim sText As String
Dim rCell As Range, rRow As Range
Dim rSrc As Range

Set doClip = New DataObject
Set rSrc = Range("E24:E90")
doClip.SetText rSrc
doClip.PutInClipboard
Set doClip = Nothing
End Sub

你能帮我修一下吗？

这是使用变量的工作表。我想复制从单元格 E24 到 E90 的所有不带引号的单元格。

标签： excelvba