分类：电脑/网络-软件-办公软件
问题：VB求助！！！问题请见附件！！！ 
问题请见附件！！！
回答：Private Sub CommandButton1_Click()
If Me.TextBox1 <> "" Then
 i = Range("e65536").End(xlUp).Row + 1
    
     Cells(i, 2) = TextBox3
   Cells(i, 3) = TextBox4
   Cells(i, 4) = TextBox5
   Cells(i, 5) = TextBox1
   Cells(i, 6) = TextBox2
   TextBox1 = ""
   TextBox2 = ""
   Cells(i, 1) = Cells(i - 1, 1) + 1
   [a65536].End(xlUp).Select
     Sheet1.CommandButton1.Top = ActiveCell.Top + 40
     End If
     Me.TextBox1.SetFocus
End Sub