excel里面的vba:点击一次按钮Button1

　　Private Sub CommandButton1_Click()

　　N = Range(\"B1\")

　　If N = 1 Then

　　R = Selection.Row

　　S = Str(R + 32) & Chr(58) & Mid(Str(R + 32), 2, Len(Str(R + 32)))

　　Rows(S).Select

　　Selection.Insert Shift:=xlDown

　　N = N + 1

　　Range(\"B1\") = N

　　Range(\"B2\") = R + 32

　　Else

　　R = Range(\"B2\")

　　S = Str(R+1) & Chr(58) & Mid(Str(R+1), 2, Len(Str(R+1)))

　　Rows(S).Select

　　Selection.Insert Shift:=xlDown

　　End If

　　End Sub