vba - 无法将以引号开头的值分配给excel vba中的另一个单元格

Question

我有一个 Excel 工作表，其中的单元格由网络查询填充。该单元格的内容以单引号 (') 开头。单元格采用文本数字格式。

当我使用 VBA 将此单元格的内容分配给另一个单元格时，引号被删除，但我不希望这种情况发生。

如何获得单元格的精确副本，即未删除引号？

我使用:

Dim lSourceRange as Range
Dim lTargetRange as Range

set lSourceRange = Cells(1,1)
set lTargetRange = Cells(2,2)

lTargetRange.numberformat = '@'
lTargetRange.value2 = lSourceRange.Value2

我也试过

lTargetRange.value2 = lSourceRange.text
lTargetRange.value2 = lSourceRange.Value

lTargetRange.value = lSourceRange.text
lTargetRange.value = lSourceRange.Value

始终删除初始报价。 (值/值2/文本lSourceRange 是 's-Hertogenbosch，在调试器中显示为 "'s-Hertogenbosch")

我知道引号是为了向 Excel 表明我想使用文本，但我需要引号成为值的一部分(以及工作表中的显示)。

Answer 1

试试这个

lTargetRange.value = "'" & lSourceRange.Value

或者使用这个

lSourceRange.Copy lTargetRange