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

這會在列的左側插入兩列，並找到值：

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

Answer 2

你缺少的Range對象（通過.Find方法的返回）的Column屬性返回列的索引號，並將其輸送到收集.Columns()

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