2010-09-23 103 views

回答

3

您可以添加以下到工作表的SelectionChange事件和更改条件是必要的。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If ActiveCell.Row = 2 Then 
    Selection.EntireRow.Insert 
End If 

End Sub