如何复制动态命名范围内的值？

Question

我正在工作中进行浪费计算，并且有几个动态命名范围，它们的单元格都包含通过公式得出的值。 我需要一个模块，该模块将动态命名范围内的值复制到另一张纸上，而无需复制公式本身，而只是复制单元格包含的值。 我试图用这个：

Sub Sample()
    Dim wsI As Worksheet, wsO As Worksheet

    Set wsI = ThisWorkbook.Sheets("Sheet1")
    Set wsO = ThisWorkbook.Sheets("Sheet1")

    wsI.Range("Pct_waste").Copy wsO.Range("B4")

End Sub

但这会复制公式，没有用。 而且我不能只使用绝对引用，因为我需要能够快速添加新数据。 最终，我打算创建一个宏，该宏将动态命名范围内的值复制到新的工作表中，然后对这些值进行数字排序并将其绘制在散点图上。 因此，我需要找到一种方法来复制动态命名范围中的所有值，而无需复制公式本身。

另外，关于VBA，我还是新手，所以轻松一点！

Answer 1

使用.Resize()方法：

Set wsI = ThisWorkbook.Sheets("Sheet1")
Set wsO = ThisWorkbook.Sheets("Sheet1")

With wsI.Range("Pct_waste")
    wsO.Range("B4").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With

Answer 2

尝试仅粘贴值：

Sub Sample() 

Dim wsI As Worksheet, wsO As Worksheet

Set wsI = ThisWorkbook.Sheets("Sheet1")
Set wsO = ThisWorkbook.Sheets("Sheet1")

wsI.Range("Pct_waste").Copy 
wsO.Range("B4").PasteSpecial xlPasteValues

End Sub

Answer 3

或类似的东西

Sub test()

Dim r As Excel.Range
Dim i As Integer

Set r = Range("test_range")

For i = 1 To r.Cells.Count
    Range("x" & i).Value = r.Cells(i, 1).Value
Next i

End Sub

或者您可以像这样在工作表中执行以下静态公式，例如= index（range_name，rows（$ A $ 1：$ A1），1）并填写下来，还可以使用IFERRROR捕获错误，但这将是静态的。