VBA如何将双周薪资表有数据的列公式转数值且不覆盖蓝色列公式

以下代码可直接满足需求，核心逻辑为自动跳过蓝色填充列，仅对已生成完成的双周薪资数据列做公式转数值处理：

Sub 双周薪资公式转固定值()
    Dim ws As Worksheet
    Dim processCol As Range
    Dim blueRGB As Long
    ' 此处修改为你表格中蓝色底的实际RGB值，默认值为常用标准办公蓝色
    blueRGB = RGB(0, 112, 192)
    
    ' 绑定薪资核算表，可替换为你的表名：Set ws = ThisWorkbook.Worksheets("薪资表")
    Set ws = ActiveSheet
    
    ' 遍历所有薪资数据列，可根据你的实际列范围调整，示例为第2列到第100列
    For Each processCol In ws.Range("B:B").Resize(, 99).Columns
        ' 跳过蓝色底的保留公式列
        If processCol.Interior.Color <> blueRGB Then
            ' 判断该双周列数据已生成：列首有薪资周期标记、且列内有有效数据
            If processCol.Cells(1, 1).Value <> "" And processCol.Cells(ws.Rows.Count, 1).End(xlUp).Row > 1 Then
                ' 公式转数值
                processCol.Value = processCol.Value
            End If
        End If
    Next processCol
    
    MsgBox "处理完成，蓝色底列公式已全部保留", vbInformation
End Sub

使用调整说明 #

• 蓝色值确认：选中你表格中蓝色底的任意单元格，点击「开始」选项卡→填充颜色→其他颜色→自定义，即可看到对应的RGB数值，替换代码中blueRGB的参数即可
• 触发规则调整：如果需要自动判断已完成核算的周期，可将判断条件改为If processCol.Cells(1, 1).Value < Date，即可自动处理所有薪资周期早于当日的列
• 自动运行配置：如果需要每次打开文件自动执行转换，可在ThisWorkbook模块添加以下代码：

Private Sub Workbook_Open()
    Call 双周薪资公式转固定值
End Sub

内容的提问来源于stack exchange，提问作者V.Specific