3

我有一个 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

始终删除初始报价。(的 value/value2/text ,在调试器中显示lSourceRange为)'s-Hertogenbosch"'s-Hertogenbosch"

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

4

1 回答 1

0

尝试这个

lTargetRange.value = "'" & lSourceRange.Value

或使用这个

lSourceRange.Copy lTargetRange
于 2012-05-26T17:39:52.007 回答