如何用VBA选中Excel A1-C15区域中第一列有填充的行？

当然可以实现，下面分两种场景给出具体代码：

场景1：Excel中的A1:C15单元格区域 #

Sub SelectRowsWithContentInFirstColumn()
    Dim targetRange As Range
    Dim cell As Range
    Dim selectedRows As Range
    
    ' 定义目标区域，可替换为具体工作表，比如ThisWorkbook.Sheets("Sheet1").Range("A1:C15")
    Set targetRange = ThisWorkbook.ActiveSheet.Range("A1:C15")
    
    ' 遍历第一列单元格，筛选非空行
    For Each cell In targetRange.Columns(1).Cells
        If cell.Value <> "" Then
            If selectedRows Is Nothing Then
                Set selectedRows = targetRange.Rows(cell.Row - targetRange.Row + 1)
            Else
                Set selectedRows = Union(selectedRows, targetRange.Rows(cell.Row - targetRange.Row + 1))
            End If
        End If
    Next cell
    
    ' 执行选中或提示
    If Not selectedRows Is Nothing Then
        selectedRows.Select
    Else
        MsgBox "第一列没有填充内容的行"
    End If
End Sub

代码说明 #

• 先锁定A1:C15区域，可根据实际需求修改工作表引用
• 遍历区域第一列的每个单元格，判断是否非空
• 用Union方法合并所有符合条件的行，最后统一选中
• 无符合条件行时弹出提示

场景2：Word中的对应行列区域（若你指的是Word表格） #

Sub SelectRowsWithContentInFirstColumn_Word()
    Dim targetTable As Table
    Dim cell As Cell
    Dim selectedRows As Range
    
    ' 假设操作文档中第一个表格的1-15行、1-3列
    Set targetTable = ActiveDocument.Tables(1)
    
    For Each cell In targetTable.Columns(1).Cells
        ' 限定行范围在1-15内
        If cell.RowIndex >= 1 And cell.RowIndex <= 15 Then
            ' Word中空单元格的内容为特定标记，需排除
            If cell.Range.Text <> Chr(13) & Chr(7) Then
                If selectedRows Is Nothing Then
                    Set selectedRows = targetTable.Rows(cell.RowIndex).Range
                Else
                    Set selectedRows = Union(selectedRows, targetTable.Rows(cell.RowIndex).Range)
                End If
            End If
        End If
    Next cell
    
    If Not selectedRows Is Nothing Then
        selectedRows.Select
    Else
        MsgBox "第一列没有填充内容的行"
    End If
End Sub

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