多工作表含空行时，如何修改VBA宏清除MEASURED VALUE列全量数据？

你的问题核心在于End(xlDown)的行为逻辑——这个方法会从指定单元格向下查找连续的非空单元格，一旦碰到空行就会停止遍历，导致空行下方的数据完全没被选中。另外原代码还有个小隐患：用固定的第2行作为清除起始行，如果表头不在第1行，会误删表头上方的内容。

我给你修改后的代码，能完美解决这两个问题，确保清空目标列下所有非表头数据（不管中间有没有空行）：

Sub ClearMeasuredValues()
    Dim ws As Worksheet
    Dim headerCell As Range
    Dim targetCol As Integer
    Dim startRow As Long
    Dim lastRow As Long
    
    For Each ws In ThisWorkbook.Worksheets
        Debug.Print ws.Name
        
        ' 一次性定位表头单元格，避免重复调用Find浪费资源
        Set headerCell = ws.Range("A1").CurrentRegion.Find(what:="MEASURED VALUE", lookat:=xlWhole)
        
        ' 先检查是否找到表头，防止找不到时报错中断宏
        If Not headerCell Is Nothing Then
            targetCol = headerCell.Column
            startRow = headerCell.Row + 1 ' 从表头的下一行开始，确保不碰表头本身
            ' 从列的最后一行往上找，获取该列真正的最后一个非空行（无视中间空行）
            lastRow = ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row
            
            ' 只有当存在需要清除的行时才执行操作，避免无意义的空范围调用
            If startRow <= lastRow Then
                ws.Range(ws.Cells(startRow, targetCol), ws.Cells(lastRow, targetCol)).ClearContents
            End If
        Else
            Debug.Print "⚠️ 工作表 " & ws.Name & " 中未找到表头 'MEASURED VALUE'"
        End If
    Next ws
End Sub

关键修改点说明： #

• 缓存表头查找结果：把Find的结果存到headerCell变量里，避免重复调用Find，既提升效率也防止两次查找出现不一致的结果。
• 动态起始行：用headerCell.Row + 1作为清除的起始行，不管表头在第几行，都只会从它下面一行开始清除，不会误删表头或表头上方的内容。
• 获取真实最后一行：ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row是从该列的最后一行（Excel最大行号）往上找第一个非空单元格，这样不管中间有多少空行，都能定位到该列最底部的有效数据行，确保所有非表头数据都被清除。
• 增加容错判断：如果某个工作表里没有找到目标表头，会在立即窗口打印提示，不会直接报错中断宏的执行。

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