如何通过VBA设置合并单元格下方的指定单元格区域？

需求：定位第一行中包含"Attach"的合并单元格，并选中其下方的单元格区域（预期示例为Range("I2:K4")）。

以下是完善后的VBA代码：

Sub SelectRange()
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim rng As Range, mergeArea As Range
    Dim startCol As Long, endCol As Long, lastRow As Long
    
    ' 在第一行查找包含"Attach"字样的单元格
    Set rng = ws.Rows(1).Find(What:="Attach*", After:=ws.Range("A1"), _
              LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
    If Not rng Is Nothing Then
        ' 获取该单元格所在的合并区域
        Set mergeArea = rng.MergeArea
        ' 记录合并区域的起始列和结束列
        startCol = mergeArea.Column
        endCol = mergeArea.Column + mergeArea.Columns.Count - 1
        ' 获取该列区域的最后一行
        lastRow = ws.Cells(ws.Rows.Count, startCol).End(xlUp).Row
        
        ' 选中合并单元格下方的目标区域（从第2行到最后一行，覆盖合并区域的所有列）
        ws.Range(ws.Cells(2, startCol), ws.Cells(lastRow, endCol)).Select
    End If
End Sub

关键说明 #

• 利用rng.MergeArea获取目标单元格所属的合并区域，确保能覆盖合并单元格的所有列
• 通过合并区域的列属性计算出起始列和结束列，准确定位横向范围
• 以合并区域起始列的最后一行作为纵向边界，结合第2行的起始行，确定最终要选中的区域范围

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