首页 › 实战技术 › Excel中给选定区域内的所有数字增加1

nnsea 发表于 2024-2-11 20:21:46

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

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

查看完整版本: Excel中给选定区域内的所有数字增加1