如何让Excel按钮仅对B列非空行移除公式并保留值

针对DB表数据变更导致历史考勤记录自动更新的问题，修改后的VBA代码可自动遍历考勤表所有行，仅对B列有内容的行移除公式、保留值，既锁定历史数据，又不影响后续手动编辑：

Sub LockAttendanceData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定目标工作表，请替换为你的考勤表实际名称
    Set ws = ThisWorkbook.Worksheets("考勤表")
    
    ' 获取B列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行为表头）
    For i = 2 To lastRow
        ' 仅处理B列非空的行
        If ws.Cells(i, "B").Value <> "" Then
            ' 将该行D-G列的公式转为值（保留数值和格式）
            With ws.Range("D" & i & ":G" & i)
                .Copy
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            End With
        End If
    Next i
    
    Application.CutCopyMode = False
    MsgBox "历史考勤记录公式已锁定为值！", vbInformation
End Sub

代码说明 #

• 自动定位数据范围：通过lastRow自动获取B列最后一行数据，无需手动选择区域
• 精准处理有效行：只对B列有人员名称的行进行操作，跳过空行
• 针对性处理公式列：仅转换D-G列（即你用XLOOKUP拉取数据的列），避免误改B列的数据验证设置
• 保留格式：使用xlPasteValuesAndNumberFormats确保转换后单元格格式不变

注意事项 #

1. 把代码中的"考勤表"替换为你的实际工作表名称
2. 如果需要锁定整行公式（比如其他列也有联动公式），将ws.Range("D" & i & ":G" & i)改为ws.Rows(i)
3. 将该宏绑定到工作表按钮，点击即可一键完成所有历史记录的锁定
4. 转换后的数据为纯值，后续DB表更新不会影响这些记录，同时支持手动编辑单元格内容

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