VBA如何选中当前单元格及后续共7个连续可见单元格

核心思路是提前把目标列的所有可见单元格按从上到下的顺序存入集合，用集合索引代替Offset偏移，彻底避开隐藏行的干扰。

完整实现代码 #

Sub 可见区域批量加粗()
    Dim rng As Range, currentCell As Range
    Dim visibleCells As Collection, i As Long, j As Long
    Dim targetRng As Range, endIdx As Long
    Dim targetCol As Long ' 要处理的目标列号

    ' 替换为你已定义好的筛选后可见区域
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
    targetCol = rng.Column ' 如果rng包含多列，直接指定列号即可，比如 targetCol = 2 代表B列

    ' 预存目标列所有可见单元格，顺序和工作表从上到下的可见行完全一致
    Set visibleCells = New Collection
    For Each currentCell In rng
        If currentCell.Column = targetCol Then
            visibleCells.Add currentCell
        End If
    Next

    ' 遍历处理所有符合要求的单元格组
    For i = 1 To visibleCells.Count
        ' 最后不足6个后续单元格时自动截断，避免越界报错
        endIdx = Application.Min(i + 6, visibleCells.Count)
        
        ' 拼接当前单元格+后续6个可见单元格的目标区域
        Set targetRng = visibleCells(i)
        For j = i + 1 To endIdx
            Set targetRng = Union(targetRng, visibleCells(j))
        Next
        
        ' 统一设置加粗
        targetRng.Font.Bold = True

        ' 如果不需要滑动窗口重复处理（即处理完1-7号后直接从8号开始），取消下一行注释即可
        ' i = endIdx
    Next
End Sub

实现说明 #

• 筛选后的可见区域本质是多个不连续子区域组成的集合，直接遍历的顺序天然和工作表从上到下的可见行顺序匹配，预存到集合后索引就对应了可见行的位置，完全过滤了隐藏行的影响。
• 如果需要调整包含的单元格数量，只需要修改endIdx = Application.Min(i + 6, visibleCells.Count)里的数字即可，比如要后续3个可见单元格就改成i+3。

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