VBA - 使用find添加列

Question

我正在尝试使用find添加2列，但我收到错误。

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

这是原始代码：

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

Answer 1

您错过了Column对象的Range属性（通过.Find方法返回）以返回列索引号并将其提供给.Columns()集合

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

Answer 2

这会在列的左侧插入两列，其中包含找到的值：

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