VBA Excel粘贴更改值

Question

我正在将数据从一个工作簿（“ firstWB”）复制到另一个工作簿（“ secondWB”）。 第一个工作簿实际上是一个.txt文件。 我将文件扩展名更改为.xls以使用它。

在我的firstWB中，此列包含此数据：

0
0
0
0
0
2,378
2,378
3,038
3,038
3,146
3,146
3,146
3,151
3,151
3,107
3,107

使用firstWB.Sheets(1).Range(copyRng.Address).Copy将数据放入剪贴板。 然后我使用ActiveSheet.Paste Destination:=Worksheets("Tabelle2").Range("A2")粘贴它。 复制和粘贴工作正常，但是值会更改。 在我的SecondWB中，如果找到以下数据：

0,000
0,000
0,000
0,000
0,000
2.378
2.378
3.038
3.038
3.146
3.146
3.146
3.151
3.151
3.107

如何避免这种情况？

Answer 1

是firstWB硬数据中的值，还是单元格引用？ 我感觉.copy正在复制单元格引用，因此在粘贴时，引用将引用具有不同信息的另一个位置。

一种可能的解决方案是将范围值设置为彼此相等，而不是复制/粘贴。 这应该使您了解如何执行此操作（请注意，您必须对其进行调整以适合您的范围）：

sub test()
dim secondWB as worksheet
dim rng as Range, rng2 as Range 'rng will be the range you want to copy, rng2 is destination

Set rng = Range("A1:A10")
set rng2 = secondWB.range("B1:B10")

rng2.Value = rng.value 'this will set the range values equal.
end sub