是否有VBA代码允许修改数字，同时保持单元格内单词不变？

Sub ModifyNumberKeepWord()
    Dim cell As Range
    For Each cell In Selection
        If IsNumeric(cell.Value) Then
            Dim word As String
            word = Split(cell.Text, " ")(0) ' 获取单元格内的单词
            cell.Value = cell.Value + 1 ' 修改数字
            cell.NumberFormat = "@" ' 设置单元格格式为文本
            cell.Value = word & " " & cell.Value ' 重新设置单元格的值
        End If
    Next cell
End Sub