Excel VBA宏无法跳过空白行填充整列问题求助

问题根源 #

你遇到的核心问题是获取最后一行的方式存在局限：如果使用Cells(Rows.Count, "A").End(xlUp).Row，当数据行中间存在空白行时，这个方法只会返回第一个连续数据区域的最后一行，导致后续行无法被处理。

解决方案 #

替换最后一行的获取逻辑，使用Cells.Find方法定位工作表中真正的最后一行（无论中间是否有空白行），同时可选择性跳过空白行（如果不需要处理空白行的话）。

修改后的完整代码示例 #

Sub CountColoredCellsToHHMM()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rowNum As Long, colNum As Long
    Dim colorCount As Integer
    Dim targetColor As Long ' 替换为你需要统计的单元格颜色值
    
    ' 指定目标工作表，建议替换为实际表名，避免依赖激活表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 设置要统计的目标颜色，可通过MsgBox ws.Cells(行, 列).Interior.Color获取实际值
    targetColor = RGB(255, 0, 0) ' 示例：红色
    
    ' 获取工作表中最后一个有内容的行（忽略中间空白行）
    lastRow = ws.Cells.Find(What:="*", _
                            After:=ws.Cells(1, 1), _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious).Row
    
    ' 遍历所有行（从第2行开始，假设第1行是表头）
    For rowNum = 2 To lastRow
        colorCount = 0
        
        ' 遍历需要统计的列（示例：B列到AS列，对应列号2到45）
        For colNum = 2 To 45
            If ws.Cells(rowNum, colNum).Interior.Color = targetColor Then
                colorCount = colorCount + 1
            End If
        Next colNum
        
        ' 将统计数转换为HH:MM格式（假设每个计数对应1分钟，可根据需求调整）
        With ws.Cells(rowNum, "AT")
            .Value = TimeSerial(0, colorCount, 0)
            .NumberFormat = "hh:mm"
        End With
    Next rowNum
End Sub

关键调整说明 #

1. 获取最后一行的正确方式：
   Cells.Find会遍历整个工作表，找到最后一个包含内容（包括公式）的单元格所在行，完全不受中间空白行影响。

2. 可选：跳过空白行：
   如果不需要处理空白行，可在遍历行时添加判断（比如检查A列是否非空）：

   If ws.Cells(rowNum, "A").Value <> "" Then
       ' 这里放统计颜色和转换格式的代码
   End If
   

3. 颜色值匹配：
   直接用RGB()可能和单元格实际颜色不匹配，可先选中目标颜色单元格，运行MsgBox ActiveCell.Interior.Color获取准确的颜色数值，再赋值给targetColor。

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