读取输入的姓名,然后在B列查找输入的姓名,找到就记下行号,更新信息。没有找到,就在最后一行的下一行添加数据。
Private Sub CommandButton1_Click()
'Sheet1 是输入信息的工作表,Sheet2是存放数据的工作薄。
Dim lngRow As Variant, strName As String
strName = Sheet1.TextBox2.Text
lngRow = Application.Match(strName, Sheet2.Range("B:B"), 0)
If Application.IsError(lngRow) Then
lngRow = Sheet2.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Sheet2.Cells(lngRow, 1) = "A2019" & Format(lngRow - 1, "000") '新增加的行,添加编号
End If
'MsgBox lngRow
'此时根据lngRow的值来更新信息就好了。
Sheet2.Cells(lngRow, 2) = "'" & strName
'其他信息
'
End Sub