Vba 复制包含单个qoute的单元格

我有一个单元格，其中包含值

'13

（在单元格中）并显示

'13

（在公式栏中），当我将单元格内容复制到变量时，它返回为

'13

variable1 = Range("A1").value

当我将变量1复制到另一个excel工作表时，它在单元格中显示为

13

，在公式栏中显示为

'13

Range("B3").value = variable1

我知道

“

用于将单元格转换为文本格式

---

有谁能帮我避免这种情况，并在单元格（B3）中获取值为

'13

Range对象有一个特殊属性“PrefixCharacter”，它返回单元格值的前缀。 因此，您的代码可能如下所示：

variable1 = Range("A1").PrefixCharacter & Range("A1").value
Range("B3").value = variable1

---

如果使用下面的方法，我找到了一个解决方案，而不是将其复制到变量中

Range("A1").Copy Destination:=Range("B3")

---

它会将准确的内容复制到另一个单元格。

您到底想要什么？你能给出一个更清楚的例子，或者你用

Range（“A1”）.公式1c1

而不是

。Value