Excel中满足列指定单元格条件时如何复制列到另一工作表？

我看了你的代码，发现几个关键问题导致它没工作，咱们一步步来修正：

你的代码存在的问题 #

• 语法错误：Sheet8(6,i) 这种写法不对，VBA里引用单元格需要用 Sheet8.Cells(6,i) 或者 Sheet8.Range(...)
• 逻辑不符需求：你要找的是列中第一个有值的单元格为"Cell"，但代码只判断了第6行的单元格，完全没处理"第一个有值"这个核心条件
• 复制范围错误：代码只复制了单个单元格，而你需要复制整列（或该列的有效数据范围），目标区域的写法也不太合理，Sheet7.Range("M3:N" & lRow) 指定了两列，但你应该是要把符合条件的列依次放到Sheet7里吧？

正确的VBA代码实现 #

下面是符合你需求的代码，我加了详细注释，方便你理解和调整：

Sub CopyColumnsWithFirstCellAsCell()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lCol As Long
    Dim lastRowSource As Long
    Dim firstNonEmptyCell As Range
    Dim targetCol As Long
    
    ' 设置源工作表和目标工作表（建议换成表的实际名称，比Sheet8/Sheet7更稳妥）
    Set wsSource = ThisWorkbook.Sheets("Sheet8")
    Set wsTarget = ThisWorkbook.Sheets("Sheet7")
    
    ' 获取源表的最后一列（从第1行往右找最后一个有值的列）
    lCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column
    ' 获取源表的最后一行（从第1列往下找最后一个有值的行）
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    ' 目标表从M列开始放置（M是第13列，可根据需要修改）
    targetCol = 13
    
    ' 遍历源表的每一列（从第5列开始，和你原来的逻辑一致）
    For i = 5 To lCol
        ' 找到当前列第一个非空单元格
        Set firstNonEmptyCell = wsSource.Columns(i).Find( _
            What:="*", _
            After:=wsSource.Cells(wsSource.Rows.Count, i), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchDirection:=xlNext _
        )
        
        ' 如果找到非空单元格，并且它的值是"Cell"
        If Not firstNonEmptyCell Is Nothing Then
            If firstNonEmptyCell.Value = "Cell" Then
                ' 复制该列的有效数据（从第一个非空单元格到源表最后一行）
                wsSource.Range(firstNonEmptyCell, wsSource.Cells(lastRowSource, i)).Copy _
                    Destination:=wsTarget.Cells(3, targetCol) ' 目标从第3行开始
                
                ' 目标列往后移一列，避免覆盖之前复制的内容
                targetCol = targetCol + 1
            End If
        End If
    Next i
    
    ' 清除剪贴板，避免Excel弹出粘贴提示
    Application.CutCopyMode = False
End Sub

代码说明 #

• 先明确绑定了源表和目标表，避免直接用Sheet8/Sheet7可能出现的混淆（比如工作表顺序变化导致的错误）
• 用Find方法精准定位每一列的第一个非空单元格，完全符合你"第一个有值的单元格"的需求
• 复制的是该列的有效数据范围，而不是单个单元格
• 目标列从M列开始，每复制一列就自动后移，保证列内容不会重叠覆盖
• 最后清除剪贴板，优化操作体验

你可以直接把这段代码复制到VBA编辑器（按Alt+F11打开），然后运行测试，如果需要调整起始列、目标起始位置等，修改对应的参数就行。

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