VBA - Добавление столбцов с помощью find

Question

Я пытаюсь добавить 2 столбца, используя find, и я получаю сообщение об ошибке.

.Columns(Rows(1).Find("Eot")).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Это был оригинальный код:

.Columns("I:J").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Answer 1

Вставляет два столбца слева от столбца с найденным значением:

.Rows(1).Find("Eot").EntireColumn.Resize(, 2).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Answer 2

вы пропустили Column свойство Range объекта (возвращение .Find метод) возвращать индексный номер столбца и кормить его .Columns() коллекции

.Columns(rows(1).Find("Eot").Column).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove