Excel中给选定区域内的所有数字增加1

nnsea

Sub IncreaseNumbersByOne()  
    Dim cell As Range  
      
    ' 检查是否有选定的区域  
    If TypeName(Selection) = "Range" Then  
        ' 遍历选定区域内的每个单元格  
        For Each cell In Selection  
            ' 检查单元格内容是否为数字  
            If IsNumeric(cell.Value) Then  
                ' 如果是数字，则增加1  
                cell.Value = cell.Value + 1  
            End If  
        Next cell  
    Else  
        MsgBox "请首先选择一个单元格区域。", vbExclamation  
    End If  
End Sub