Получить столбец и номер строки для именованного диапазона

Question

У меня возникла проблема со ссылкой на столбец рядом с именованным диапазоном (NamedRange имеет ширину всего в 1 колонку). Я использовал следующий код, чтобы вставить столбец:

.sheets("sheet1").Range("NamedRange:NamedRange").EntireColumn.Insert

Это работает, но вставляет столбец перед NamedRange. Это не имеет значения, если я добавлю

shift:=xlToRight или shift:=xlToLeft

Она игнорирует меня и вставляет столбец влево.

Пара вопросов:

1. Как я могу вставить столбец справа от NamedRange?
2. Как я могу ссылаться на строку 1 нового столбца, чтобы поместить заголовок в новый столбец? Другими словами, как найти адрес новой ячейки столбца (row1, column ???)? И как я могу извлечь новый адрес столбца NamedRange?

Answer 1

Как я могу вставить столбец справа от NamedRange?

Используйте .Offset, чтобы достичь того, чего вы хотите.

Thisworkbook.Sheets("Sheet1").Range("NamedRange").offset(,1).EntireColumn.Insert 

как я могу ссылаться на строку 1 нового столбца, чтобы поместить заголовок в мой новый столбец?

Работа с Range Object

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