VBA实现从指定单元格到行末数据单元格的选择（含合并单元格）

原代码使用Range("I46").End(xlToRight)会在第一个合并单元格处停止，因为End(xlToRight)会识别合并区域的边界，无法跳过合并单元格定位到真正的行末数据单元格。以下是可行的解决方案，同时包含空/非空单元格的统计逻辑：

核心解决方案：准确定位行末数据单元格 #

要避开合并单元格的干扰，需从当前行的最后一列向左查找第一个非空单元格，以此确定行末的边界。

完整代码示例 #

Sub SelectRangeAndCountCells()
    Dim startCell As Range
    Dim lastCell As Range
    Dim targetRange As Range
    Dim nonEmptyCount As Long, emptyCount As Long
    Dim cell As Range
    
    ' 定义起始单元格，可替换为ActiveCell或指定单元格（如Range("H46")）
    Set startCell = Range("H46")
    
    ' 定位当前行最右侧的非空单元格（不受合并单元格影响）
    Set lastCell = Cells(startCell.Row, Columns.Count).End(xlToLeft)
    
    ' 选中从起始单元格到行末数据单元格的完整范围
    Set targetRange = Range(startCell, lastCell)
    targetRange.Select
    
    ' 统计空/非空单元格数量
    nonEmptyCount = 0
    emptyCount = 0
    For Each cell In targetRange
        ' 逻辑1：按单个单元格实际值统计（合并区域仅左上角有值，其余为空）
        If Not IsEmpty(cell.Value) Then
            nonEmptyCount = nonEmptyCount + 1
        Else
            emptyCount = emptyCount + 1
        End If
        
        ' 逻辑2：将合并区域所有单元格视为非空（若合并区域有值）
        ' If cell.MergeArea.Cells(1, 1).Value <> "" Then
        '     nonEmptyCount = nonEmptyCount + 1
        ' Else
        '     emptyCount = emptyCount + 1
        ' End If
    Next cell
    
    ' 输出统计结果（可替换为写入单元格等操作）
    MsgBox "非空单元格数量：" & nonEmptyCount & vbCrLf & "空单元格数量：" & emptyCount
End Sub

代码说明 #

1. 定位行末单元格：Cells(startCell.Row, Columns.Count).End(xlToLeft)从当前行的最末列（Excel默认是XFD列）向左遍历，直接定位到该行最后一个包含数据的单元格，完全不受合并单元格干扰。
2. 选中目标范围：通过Range(startCell, lastCell)构建从起始单元格到行末的完整区域并选中。
3. 统计逻辑选择：
   • 逻辑1：严格按单个单元格的实际值统计，合并区域仅左上角单元格被计为非空，其余合并单元格计为空。
   • 逻辑2：将整个合并区域的所有单元格视为非空（只要合并区域有值），适合需要将合并单元作为整体统计的场景。

你可以根据实际需求注释/取消注释对应的统计逻辑。

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