VBA实现：保留表头将指定区域非表头单元格设为0

用VBA宏实现一键重置指数化数值 #

步骤1：打开VBA编辑器 #

• 按下 Alt + F11 快速打开VBA编辑器。
• 在左侧「工程资源管理器」中找到你的目标工作表，右键点击它，选择「插入」→「模块」。

步骤2：编写宏代码 #

在新建的模块窗口中粘贴以下代码：

Sub ResetIndexationValues()
    Dim targetRange As Range
    Dim cell As Range
    
    ' 替换为你的目标工作表名称
    Set targetRange = ThisWorkbook.Worksheets("Sheet1").Range("C55:C350")
    
    ' 遍历区域内所有单元格
    For Each cell In targetRange
        ' 跳过表头单元格
        If cell.Value <> "Indexation" Then
            ' 将数值设为0，保留原有百分比格式
            cell.Value = 0
        End If
    Next cell
End Sub

注意：把代码中的"Sheet1"替换成你实际使用的工作表名称。

步骤3：添加按钮并关联宏 #

• 返回Excel界面，点击顶部「开发工具」选项卡→「插入」→ 选择「按钮（窗体控件）」。
• 在工作表空白处拖拽绘制按钮，松开鼠标后弹出「指定宏」窗口，选中ResetIndexationValues，点击确定。
• 右键点击按钮，选择「编辑文字」，将按钮命名为「重置指数化数值」即可。

灵活适配说明 #

如果后续文件结构变更（比如区域范围调整、表头位置变动），只需修改代码中的Range("C55:C350")或者表头判断条件cell.Value <> "Indexation"，无需重新手动选择区域，适配性更强。

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