Question

我正在尝试根据活动单元格内容（来自数据验证下拉列表）粘贴命名范围的内容。

活动单元格内容等于命名范围名称。

工作表中有40个奇数命名范围，我想通过选择一个特定的单元格并调用宏来将它们粘贴到一列中。

我可以创建变量并将活动单元格内容分配给变量，但我不知道如何将变量分配给命名范围的名称并粘贴内容。

我尝试过以下代码：

＆＃13;

Sub PrintRange()
'
' PrintRange Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
    Dim LO As Variant
    Set LO = ActiveCell
    Application.Goto Reference:="LO"
    Selection.Copy
    Sheets("Test page").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
End Sub

＆＃13;

有人能给我一些建议吗？

Answer 1

希望这会对你有所帮助:)。

＆＃13;

Sub linga()
Dim srcRange As Range, destRange As Range
'Replace Num with your named range
Set srcRange = Range("Num")
Set destRange = ActiveCell.Resize(srcRange.Rows.Count, srcRange.Columns.Count)

destRange.Value = srcRange.Value
End Sub

＆＃13;

Answer 2

这在一天结束时完美无缺：

Sub PrintRange（） “ 'PrintRange宏 “ '键盘快捷键：Ctrl + Shift + L. “ LO = ActiveCell Application.Goto参考：=（LO） Selection.Copy 表格（“数据输入”）。选择 ActiveCell.Offset（0,1）.Range（“A1”）。选择 ActiveSheet.Paste Application.CutCopyMode = False

End Sub

如何使用VBA基于活动单元格内容粘贴命名范围的内容

2 个答案: