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

Question

我想在Excel工作表的特定列中搜索一個值，然後插入一個新行。與第一列一樣，搜索「應用程序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"