根据列中的值创建命名范围 [英] Creating named range based on value in column
本文介绍了根据列中的值创建命名范围的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想基于B列中的值创建一个命名范围.
I want to create a named range based on the value in column B.
例如
我要创建
- 名称为UNIT21的范围,并且RefersTo上方的数据应为A2:C4和A6:C6.
- 名称范围:UNIT22用于B列中具有22的数据.
- 如何从A:C中为整个行选择整个行?
- 如何将新数据添加到现有命名范围中,而不是像代码一样替换现有值.
Sub naming()
Dim row_index As Long
Dim lastrow As Long: lastrow = 5
Dim NamedRange As Range
Dim celltomap As Range
Dim Rng As Range
For row_index = 1 To lastrow
RangeName = Sheet3.Range("A2:C6").Cells(row_index, 2).Value
Set celltomap = Sheet3.Range("A2:C6").Cells(row_index, 3)
Sheet3.Names.Add Name:="UNIT" & RangeName, RefersTo:=celltomap
MsgBox ("UNIT" & RangeName)
Next row_index
End Sub
查看全文