excel - selection.findを使用してExcelシートの列の値を検索する方法は？

Question

Excelシートの特定の列の値を検索し、その後に1つの新しい行を挿入したいと思います。最初の列と同様に、「application 1」を検索し、その後「applicationone」の後に1行追加します。

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"