Excel相同数据导出怎么做？如何批量导出相同数据？
作者：佚名|分类：EXCEL|浏览：61|发布时间：2025-04-16 21:16:11
Excel相同数据导出怎么做？如何批量导出相同数据？
在日常工作或学习中，我们经常需要处理Excel表格，尤其是当表格中存在大量相同数据时，如何高效地导出这些数据成为一个关键问题。本文将详细介绍如何在Excel中导出相同数据，并分享一些批量导出的技巧。
一、单次导出相同数据
1. 打开Excel表格，选中包含相同数据的单元格区域。
2. 点击“文件”菜单，选择“另存为”。
3. 在弹出的“另存为”对话框中，选择保存位置，输入文件名，然后点击“保存”。
4. 在“另存为”对话框中，点击“工具”按钮，选择“常规选项”。
5. 在“常规选项”对话框中，勾选“仅显示相同数据”，然后点击“确定”。
6. 此时，你将只看到选中的单元格区域中的相同数据，将其导出即可。
二、批量导出相同数据
1. 打开Excel表格，选中包含相同数据的单元格区域。
2. 点击“文件”菜单，选择“另存为”。
3. 在弹出的“另存为”对话框中，选择保存位置，输入文件名，然后点击“保存”。
4. 在“另存为”对话框中，点击“工具”按钮，选择“常规选项”。
5. 在“常规选项”对话框中，勾选“仅显示相同数据”，然后点击“确定”。
6. 此时，你将只看到选中的单元格区域中的相同数据。接下来，你可以使用以下方法批量导出：
（1）使用VBA脚本：打开Excel，按下“Alt + F11”键进入VBA编辑器，插入一个新模块，复制以下代码并粘贴到模块中：
```vba
Sub ExportSameData()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim savePath As String
Dim saveFile As String
Set ws = ActiveSheet
Set rng = Selection
savePath = "C:\ExportData\" '设置导出路径
saveFile = "SameData_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".xlsx" '设置文件名
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cell In rng
If cell.Value = ws.Cells(cell.Row, 1).Value Then
ws.Range(cell.Address).Copy
With Application
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False
.OnAction = ""
.ActiveWorkbook.SaveAs Filename:=savePath & saveFile, FileFormat:=xlOpenXMLWorkbook
.OnAction = ""
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
Exit For
End If
Next cell
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "导出完成！"
End Sub
```
（2）使用宏录制：打开Excel，按下“Alt + F8”键进入宏录制界面，选择“录制新宏”，然后点击“确定”。在Excel中执行导出相同数据的操作，录制完成后，点击“停止录制”。在弹出的“宏”对话框中，给宏命名，然后点击“确定”。
三、总结
通过以上方法，我们可以轻松地在Excel中导出相同数据，并实现批量导出。在实际操作中，根据具体需求选择合适的方法，提高工作效率。
相关问答
1. 问题：如何设置导出路径？
回答：在“另存为”对话框中，点击“工具”按钮，选择“常规选项”，在“常规选项”对话框中设置保存路径。
2. 问题：如何设置文件名？
回答：在“另存为”对话框中，直接输入文件名即可。
3. 问题：如何使用VBA脚本批量导出相同数据？
回答：请参考本文第二部分中的VBA脚本代码，将其复制到Excel的VBA编辑器中，运行即可。
4. 问题：如何使用宏录制批量导出相同数据？
回答：请参考本文第二部分中的宏录制方法，录制完成后，在“宏”对话框中运行即可。
5. 问题：如何查看导出的数据？
回答：导出完成后，打开保存路径下的文件即可查看导出的数据。