EXCELマクロ

question:1100755413

Sheet1を開き、[ツール]-[マクロ]-[Visual Basic Editor]を開き、プロジェクト内のSheet1を開き、以下を書き込んでください。
そして、Sheet1に戻り、A列にキーワードを書き込んでいってみてください。

=======================================================
Private fDo As Boolean

Private Sub Worksheet_Activate()
fDo = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vTgt
Dim vRow
Dim vVal

If fDo Then Exit Sub
If Target.Column <> 1 Then Exit Sub

vTgt = Target.Row

fDo = True
vVal = Cells(vTgt, 1)
Call Rows(vTgt).Clear
Cells(vTgt, 1) = vVal
fDo = False

vRow = 1
Do While Len(Sheet2.Cells(vRow, 1))
If Sheet2.Cells(vRow, 1) = Cells(vTgt, 1) Then
fDo = True
Call Sheet2.Rows(vRow).Copy(Rows(vTgt))
fDo = False
Exit Do
End If
vRow = vRow + 1
Loop
End Sub
=======================================================