VBA – 名称Excel表范围并粘贴到工作表2

你能用一个特定的单元格文本来命名Range（“O1：AG15”）吗？

IE A1包含“1234”…名称范围（“O1：AG15”）“1234”，然后将该范围复制到Worksheet2（不重要的地方）。

Answer 1

要在“Sheet1”中添加引用Range("O1:AG15")的Named Range （工作簿范围），请使用下面的代码行：

 ThisWorkbook.Names.Add _ Name:=Worksheets("Sheet1").Range("A1").Value, _ RefersTo:=Worksheets("Sheet1").Range("O1:AG15") 

要将此Range复制到“Sheet2”，请使用下面的代码行：

 Range(Worksheets("Sheet1").Range("A1").Value).Copy Destination:=Worksheets("Sheet2").Range("A1") 

---

编辑1 ：用于debugging

 Dim RangeName As String RangeName = Worksheets("Sheet1").Range("A1").value MsgBox RangeName ThisWorkbook.Names.Add Name:=RangeName, RefersTo:=Worksheets("Sheet1").Range("O1:AG15")