当H列出现指定文本时，将同行特定单元格复制到同工作簿另一工作表

嘿，我来帮你搞定这个问题！之前能复制整列，现在要精准复制符合条件行的特定单元格其实不难，我给你两种实用方案，你可以根据自己的需求选：

方案一：用VBA实现灵活的条件复制（推荐，适合批量或自动场景） #

这种方法可以完全自定义要复制的单元格，还能一键执行，步骤如下：

1. 打开你的Excel工作簿，按下 Alt + F11 打开VBA编辑器
2. 在左侧的“项目资源管理器”里，右键点击你的工作簿名称，选择「插入」→「模块」
3. 把下面的代码粘贴到模块窗口里，然后根据你的实际情况修改参数：

Sub CopySpecificCellsOnCondition()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim targetRow As Long
    Dim i As Long
    Dim searchText As String
    
    ' 👇 修改成你的源工作表和目标工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    ' 👇 修改成你要在H列查找的指定文本
    searchText = "已完成"
    
    ' 获取源表H列最后一行的行号（避免遍历空行）
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "H").End(xlUp).Row
    ' 目标表从第2行开始（假设第1行是表头，要是没有表头就改成1）
    targetRow = 2
    
    ' 遍历源表的每一行（从第2行开始跳过表头）
    For i = 2 To lastRow
        ' 检查当前行H列的值是否匹配指定文本
        If sourceSheet.Cells(i, "H").Value = searchText Then
            ' 👇 这里是复制特定单元格的核心，你可以按需修改列名/列号
            ' 示例：把源表第i行的A、C、E列，复制到目标表第targetRow行的A、B、C列
            targetSheet.Cells(targetRow, "A").Value = sourceSheet.Cells(i, "A").Value
            targetSheet.Cells(targetRow, "B").Value = sourceSheet.Cells(i, "C").Value
            targetSheet.Cells(targetRow, "C").Value = sourceSheet.Cells(i, "E").Value
            
            ' 目标行号+1，准备存下一条符合条件的数据
            targetRow = targetRow + 1
        End If
    Next i
    
    MsgBox "符合条件的特定单元格已复制完成！", vbInformation
End Sub

代码关键修改点： #

• 工作表名称：把"Sheet1"和"Sheet2"改成你实际的源表和目标表名字
• 指定文本：searchText = "已完成"改成你要在H列找的内容
• 复制的单元格：如果要复制B、D、G列，就把sourceSheet.Cells(i, "A")改成sourceSheet.Cells(i, "B")，目标列也可以对应调整位置

修改完后，按下F5就能执行代码，或者回到Excel里给这个宏加个按钮，以后一键运行更方便。

方案二：用公式实现（适合不需要批量操作，要实时更新的场景） #

如果你不想用VBA，用Excel公式也能实现，分两种情况：

情况1：用动态数组公式（Excel 365/2021及以上版本） #

在目标表的A2单元格输入公式（替换成你的表名和指定文本）：

=FILTER(Sheet1!A:A, Sheet1!H:H="已完成")

然后在目标表的B2单元格输入：

=FILTER(Sheet1!C:C, Sheet1!H:H="已完成")

同理，要复制哪列就改对应的列引用，公式会自动提取所有符合条件的行数据，而且源表数据更新时，目标表会自动同步。

情况2：用INDEX+SMALL组合（兼容所有Excel版本） #

在目标表的A2单元格输入公式，然后按下Ctrl+Shift+Enter（旧版Excel），或者直接回车（新版）：

=IFERROR(INDEX(Sheet1!A:A, SMALL(IF(Sheet1!H:H="已完成", ROW(Sheet1!H:H)), ROW(A1))), "")

然后把这个公式向右拖动到你需要的列（比如要复制C列就把A:A改成C:C），再向下拖动填充，就能得到所有符合条件的特定单元格数据了。

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