那位老师给看一下这段代码怎么改（附件已上传）

wangluor

附件里面已经说明问题，和需要修改的地方，请老师看看

wangluor

。。。。。。。。。。

wangluor

Private Sub CommandButton1_Click()
  Dim a As Long, m%
  a = Sheet2.Range("B65535").End(xlUp).Row + 1
If IsNumeric(Application.Match(TextBox1.Value, Range("B1:B" & a), 0)) Then  '如果姓名已存在，则添加信息
m = Application.Match(TextBox1.Value, Range("B1:B" & a), 0) ' 行数
    For s = 2 To 9
    If Controls("TextBox" & s).Value <> "" Then Cells(m, s + 1) = Controls("TextBox" & s).Value
    Next
    Else '如果不存在。则追加
    Cells(a, 2).Resize(1, 9) = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value, TextBox6.Value, TextBox7.Value, TextBox8.Value, TextBox9.Value)
    TextBox1.Value = ""
    TextBox1.SetFocus
End If
End Sub
问题已经完美解决，感谢山风老师