获取命名范围的列和行号
我有一个引用名称范围旁边的列的问题（NamedRange只有1列宽）。 我已经使用下面的代码来插入一列：
.sheets("sheet1").Range("NamedRange:NamedRange").EntireColumn.Insert
这工作，但在NamedRange之前插入列。 如果我添加没关系
shift:=xlToRight或shift:=xlToLeft
它会忽略我并将列插入到左侧。
几个问题：
- 我怎样才能在NamedRange右边插入一列？
- 我如何引用新列的第1行，将标题放到我的新列中？ 换句话说，我如何find新的列单元格（row1，列???）的地址？ 我怎样才能提取NamedRange的新列地址？
我怎样才能在NamedRange的右侧插入一列？
使用.Offset来实现你想要的。
Thisworkbook.Sheets("Sheet1").Range("NamedRange").offset(,1).EntireColumn.Insert
我怎样才能引用新列的第1行将标题放到我的新列？
使用Range对象
Sub Sample() Dim rngNm As Range, NewRng As Range Set rngNm = ThisWorkbook.Sheets("Sheet1").Range("NamedRange") rngNm.Offset(, 1).EntireColumn.Insert Set NewRng = rngNm.Offset(, 1) Debug.Print NewRng.Address '<~~ New Columsn Address Debug.Print NewRng.Cells(1,1).Address '<~~ 1st Cell in the range End Sub