Excel宏开发需求：指定单元格批量加减1并原地更新

以下是直接修改原单元格值的VBA宏代码，无需使用公式，操作简单易调整：

Sub AdjustCellValues()
    Dim ws As Worksheet
    Dim cell As Range
    Dim exceptionColumns As Variant
    Dim colLetter As String
    
    ' 设置要处理的工作表（默认当前激活工作表，可改为Set ws = ThisWorkbook.Sheets("Sheet1")指定具体表）
    Set ws = ActiveSheet
    
    ' 定义需要加1的列（用列字母，例如Array("B", "D")代表B列和D列）
    exceptionColumns = Array("B", "D") ' 请根据你的需求修改这里
    
    ' 遍历工作表中所有已使用的单元格
    For Each cell In ws.UsedRange
        ' 仅处理数值型单元格，避免文本或空单元格出错
        If IsNumeric(cell.Value) Then
            ' 获取当前单元格的列字母
            colLetter = Split(cell.Address, "$")(1)
            
            ' 判断当前列是否在例外列表中
            If Not IsError(Application.Match(colLetter, exceptionColumns, 0)) Then
                cell.Value = cell.Value + 1 ' 例外列加1
            Else
                cell.Value = cell.Value - 1 ' 其他列减1
            End If
        End If
    Next cell
    
    MsgBox "值调整完成！", vbInformation
End Sub

使用步骤： #

1. 打开你的Excel文档，按Alt + F11打开VBA编辑器。
2. 在左侧「项目资源管理器」中右键点击你的工作簿 → 插入 → 模块。
3. 将上述代码粘贴到新建的模块窗口中。
4. 修改代码里的exceptionColumns数组，把需要加1的列字母填进去（比如要让A、C列加1，就改成Array("A", "C")）。
5. 按F5运行宏，或者关闭编辑器后，按Alt + F8选择AdjustCellValues执行。

注意事项： #

• 运行前建议先备份Excel文件，防止意外数据损失。
• 如果你习惯用列号（比如1代表A列），可以把判断列的部分改成：

  If Not IsError(Application.Match(cell.Column, exceptionColumns, 0)) Then
  

  同时把exceptionColumns改成列号数组，比如Array(2,4)代表B、D列。
• 宏会自动跳过非数值单元格（文本、空单元格等），不会修改这些内容。

内容的提问来源于stack exchange，提问作者jeep01lover