excel - 复制 Excel 工作表单元格的绝对值(而不是公式)

Question

我有一个工作表，我在其上使用宏来创建图表。由于数据分散在工作簿中的各个工作表中，我正在复制相同的数据并创建一组连续的列以用于创建图表:

Sheets("Data1").Range("A29:A39").Copy Destination:=Sheets("Chart").Range("AA29:AA39")
Sheets("Data2").Range("D29:D39").Copy Destination:=Sheets("Chart").Range("AB29:AB39")
Sheets("Data3").Range("I29:I39").Copy Destination:=Sheets("Chart").Range("ACI29:AC39")
Sheets("Data3").Range("D129:D139").Copy Destination:=Sheets("Chart").Range("AD29:AD39")

我的数据如下所示:

CustomerA            489 456 93%
CustomerB            63  0   0%
CustomerC            123 123 100%
CustomerD            185 172 93%

以上是我希望在新复制的单元格中获得的值，而不是使用公式计算它们的方式。我正在使用上面的 vba 来完成这项工作。

如何获取绝对值，而不是新复制的工作表单元格中的相对公式？

Answer 1

使用Value像这样

Sheets("Chart").Range("AA29:AA39").Value = Sheets("Data1").Range("A29:A39").Value

更新:如果您将数据转储到已经格式化为数字和百分比的单元格中，那么这个过程比复制和粘贴更干净。如果您确实需要格式，那么您可以将粘贴特殊格式与上面的行结合起来，或者将我们的两个代码结合起来

获取 Data1 和 Chart

之间相同的单元格格式

将值从 Data1 转储到 Chart1 替换步骤 1 中的公式

Sheets("Data1").Range("A29:A39").Copy Destination:=Sheets("Chart").Range("AA29:AA39")
Sheets("Chart").Range("AA29:AA39").Value = Sheets("Data1").Range("A29:A39").Value