如果文本框值与Excel VBA中的单元格值匹配，如何更新行

Sub UpdateRow()
    Dim textBoxValue As String
    Dim cellValue As String
    Dim rowNum As Long
    
    textBoxValue = TextBox1.Value ' 获取文本框的值
    
    For rowNum = 1 To 10 ' 假设要更新的行范围是1到10行
        cellValue = Cells(rowNum, 1).Value ' 获取当前行第一列的单元格值
        
        If cellValue = textBoxValue Then ' 检查文本框值与单元格值是否匹配
            ' 如果匹配成功，可以在这里更新当前行的其他单元格值
            Cells(rowNum, 2).Value = "更新后的值" ' 示例：更新当前行第二列的单元格值
        End If
    Next rowNum
End Sub