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"

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

1 个答案: