VBA：将命名范围粘贴为值

Posted 2021-04-14

我有一个动态命名范围，在工作表“Data1”中将其命名为“MYRange”。动态我的意思是范围编码为

=offset(A1,0,0, COUNTA(A:A),1). 

填充这些单元格的实际值是通过vlookup完成的。我想将此范围复制到另一个名为“Data2”的工作簿中作为值，否则我会得到一个参考问题。

谢谢！

答案

要复制两个范围之间的值，请使用：

Range("MyDestRange").Value = Range("MySrcRange").Value

确保两个范围的形状和细胞数相同。您可以使用.Resize()和.Offset()方法操纵那些来获得您需要的东西。

另一答案

假设您的命名范围具有类似“MyRange”的名称，如下所示：

Dim srcRange as Range, destRange as Range

Set srcRange = Range("MyRange")
Set destRange = Workbooks("Data2").Worksheets(1).Range("A1").Resize(srcRange.Rows.Count, srcRange.Columns.Count)

destRange.Value = srcRange.Value

另一答案

Range("Named_Range_Name_Here").copy

Range("Sheet_Name").Range("Cell Reference").PasteSpecial Paste:=xlPasteValues

粘贴到单个单元格将像您一样粘贴数据。它将从那里开始粘贴并粘贴名称范围，除非您选择转置它。