Excel宏开发求助：选取C列空白单元格对应A列的前14个相邻单元格

原代码存在两个核心问题：一是误将筛选列设为B列（Field:=2），而你需要筛选的是C列空白单元格，应改为Field:=3；二是仅选中所有符合条件的单元格，未限制只取前14个。以下是修改后的完整代码，实现你需要的功能：

Public Sub CopyFirst14MatchingValues()
    Dim ws As Worksheet
    Dim visibleCells As Range
    Dim cell As Range
    Dim targetRange As Range
    Dim count As Integer
    
    ' 指定当前操作的工作表
    Set ws = ActiveSheet
    
    ' 清除之前可能存在的自动筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 对C列（对应Field:=3）筛选空白单元格
    With ws.UsedRange
        .AutoFilter Field:=3, Criteria1:="="
        ' 获取A列中可见的单元格（捕获无匹配项的错误）
        On Error Resume Next
        Set visibleCells = .Columns(1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
    End With
    
    ' 若找到符合条件的可见单元格
    If Not visibleCells Is Nothing Then
        count = 0
        ' 遍历可见单元格，收集前14个数据行（跳过表头）
        For Each cell In visibleCells
            If cell.Row > ws.UsedRange.Row Then
                If targetRange Is Nothing Then
                    Set targetRange = cell
                Else
                    Set targetRange = Union(targetRange, cell)
                End If
                count = count + 1
                If count >= 14 Then Exit For ' 达到14个后停止遍历
            End If
        Next cell
        
        ' 复制选中的单元格，可自行添加粘贴目标（示例已注释）
        If Not targetRange Is Nothing Then
            targetRange.Copy
            ' 示例：粘贴到D列起始位置
            ' ws.Range("D1").PasteSpecial xlPasteValues
        End If
    End If
    
    ' 关闭自动筛选，恢复工作表正常状态
    ws.AutoFilterMode = False
End Sub

关键说明 #

• 修正筛选列：将Field:=2改为Field:=3，确保针对C列筛选空白
• 错误处理：通过On Error Resume Next避免无匹配单元格时的运行时错误
• 表头跳过：判断单元格行号大于UsedRange起始行，排除表头行的干扰
• 数量限制：遍历过程中计数，达到14个即停止，避免多余操作
• 状态恢复：操作完成后关闭自动筛选，不影响后续工作表使用

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