如何在LibreOffice Calc中跨工作表导出含指定内容的搜索结果

方法一：查找替换+正则标记法（贴合你的思路） #

• 给所有工作表新增一列作为辅助标记列。
• 按下Ctrl+H打开查找替换窗口，勾选正则表达式和全部工作表选项。
• 查找内容填.*Steve.*，匹配所有包含Steve的单元格内容；替换内容填$0（保留原内容），再点击「更多选项」，勾选「替换格式」，给匹配单元格设置醒目的背景色（比如黄色）。
• 标记完成后，逐个工作表按颜色筛选，选中筛选后的行复制到目标工作表即可。

如果想用公式标记整行：

• 在辅助列第一行输入公式=IF(ISNUMBER(SEARCH("Steve",A1:Z1)),1,0)（A1:Z1替换为你实际的行数据范围），下拉填充至所有行。
• 跨工作表筛选辅助列为1的行，批量复制。

方法二：高级筛选跨表整合 #

• 新建空白工作表作为结果汇总表。
• 选中结果表任意单元格，点击「数据」→「高级筛选」。
• 在对话框中，点击「列表区域」输入框，依次选择两个工作表的完整数据范围（比如Sheet1.$A$1:$Z$1000和Sheet2.$A$1:$Z$1000，用逗号分隔）。
• 设置「条件区域」：在空白单元格输入Steve，确保条件区域的表头与数据区域表头一致。
• 勾选「将筛选结果复制到其他位置」，指定结果表的起始单元格，点击确定即可一次性提取所有跨表目标行。

方法三：优化宏的执行速度 #

如果之前的宏运行缓慢，可通过以下方式优化：

• 在宏开头添加代码关闭屏幕刷新和自动计算：

oDoc = ThisComponent
oDoc.lockControllers()
oDoc.setAutomaticCalculation(False)

• 改用数组读取整个工作表数据，在数组内查找匹配项，避免逐个单元格遍历：

' 示例：读取Sheet1数据到数组
oSheet = oDoc.Sheets.getByName("Sheet1")
oRange = oSheet.getCellRangeByPosition(0,0,25,999) ' 对应A1:Z1000
aData = oRange.getDataArray()
' 遍历数组查找"Steve"，收集行索引
' ... 匹配逻辑 ...

• 宏结尾恢复设置：

oDoc.setAutomaticCalculation(True)
oDoc.unlockControllers()

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