excel - 如何使用 selection.find 在 excel 表的列中搜索值？

Question

我想在 Excel 工作表的特定列中搜索一个值，然后插入一个新行。与第一列一样，搜索“application 1”，然后在“applicationone”之后添加一行。

Application Program Variable    
Application_1   Program1    
Application_1   Program1    
Application_1   Program1    
Application_2   Program1    
Application_2   Program1

我正在尝试使用以下代码进行搜索：

.Activate 
.Columns("B:B").Select

     Selection.Find(What:="Application_1", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

任何帮助，将不胜感激。

Answer 1

你的代码看起来不错

之后插入一个新行，你可以

ActiveCell.Offset(1).EntireRow.Insert

接着

ActiveCell.Offset(1).Value="What ever you want"