无需Kutools，如何动态跨工作表提取无空行的过滤结果？

嘿，完全不用依赖付费插件！我之前处理过一模一样的需求，给你几个亲测好用的免费方案，都能避免空行，还能动态同步源数据的变化：

这是最简单的方法，Excel自带的FILTER函数天生就是干这个的——它会自动筛选出符合条件的内容，直接输出成没有空行的动态列表，源数据更新后结果也会自动同步。

举个例子，假设你要从Sheet1的A列筛选包含"text"的内容，放到Sheet2的A列，直接在Sheet2的A1单元格输入：

=FILTER(Sheet1!A:A, ISNUMBER(SEARCH("text", Sheet1!A:A)), "无匹配结果")

• 解释一下：第一个参数是要筛选的数据源（这里是Sheet1的A列），第二个参数是筛选条件（判断A列单元格是否包含"text"），第三个参数是没有匹配结果时显示的内容（可以改成你需要的提示，或者留空）。
• 好处：全程不用手动操作，公式自动生成无空行的列表，源数据增删改后结果实时更新。

如果你用的是旧版Excel（比如2016及以前），或者不想写公式，Power Query绝对是最佳选择——它是Excel自带的免费工具，通过可视化步骤完成筛选，最后输出的结果也是无空行的，还能一键刷新同步源数据。

操作步骤：

1. 打开源数据所在的Sheet1，选中要筛选的列（比如A列），点击「数据」选项卡→「从表格/区域」（如果你的数据不是表格，会提示你转换成表格，直接点确定就行）。
2. 进入Power Query编辑器后，选中要筛选的列，点击「开始」选项卡→「筛选」按钮（列标题旁边的小箭头）→「文本筛选」→「包含」，输入要筛选的"text"，点击确定。
3. 筛选完成后，点击「主页」选项卡→「关闭并上载」→选择「关闭并上载至」，指定要放到的Sheet2，确定即可。
4. 之后源数据更新了，只要在Sheet2的结果区域右键→「刷新」，就能同步最新的筛选结果，全程没有空行。

如果需要更灵活的自定义逻辑（比如同时筛选多列、处理特殊格式），可以写个简单的VBA宏，自动把符合条件的内容复制到目标表，完全避免空行。

给你一个基础的宏代码示例：

Sub CopyFilteredData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim targetRow As Long
    Dim i As Long
    
    ' 设置源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空目标表原有内容（按需保留）
    targetSheet.Cells.Clear
    
    ' 获取源表最后一行
    lastRow = sourceSheet.Cells(Rows.Count, "A").End(xlUp).Row
    targetRow = 1 ' 目标表起始行
    
    ' 遍历源表数据
    For i = 1 To lastRow
        ' 判断当前单元格是否包含"text"
        If InStr(sourceSheet.Cells(i, "A").Value, "text") > 0 Then
            ' 复制符合条件的内容到目标表
            sourceSheet.Cells(i, "A").Copy targetSheet.Cells(targetRow, "A")
            targetRow = targetRow + 1 ' 目标行下移
        End If
    Next i
    
    MsgBox "筛选完成！共复制" & targetRow - 1 & "条数据"
End Sub

使用方法：

1. 按Alt+F11打开VBA编辑器，插入一个新模块，把上面的代码粘贴进去。
2. 修改代码里的源表、目标表名称，以及筛选的关键词"text"。
3. 运行宏（或者给宏加个按钮，点一下就执行），就能把符合条件的内容无空行复制到目标表。
4. 如果需要自动同步，可以给源表添加「工作表更改」事件，源数据变化时自动触发宏。

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