首先，这些操作也许不是最佳的办法，但都是经过实操能够实现的。本科一个学院院长说的好，老外搞研究不一定会寻求最好的办法，只要这个办法能够实现那就够了，就可以继续往下走，我们毕竟不是专门研究方法学的，也不可以寻求流程优化，更多时候只要能解决问题就足够了，不需要走捷径，至少不用刻意追求最短距离。
我这里的文字多来自实际的科研生活需求，这里比如我们研究泛癌中的差异基因，以转录组为例，想探究一下不同癌种共有的差异基因或特有的癌基因，以作进一步的机制挖掘或biomarker开发。那么，当我们得到一堆基因之后，可能是多个excel文件，这些excel文件具有相同的表头，因此需要合并它们为一个文件。再比如，同一单位中多个员工汇报工作时交上来的表格，领导想进行简单的统计分析，如看一下最大值、最小值、中位数、众数等等，也会用到这种场景。
1.把多个csv或xls合并成单个表头相同的多行文件
首先，如果你收集到的是csv格式的文件，是最好的，xls格式也可以，把它们放到一个文件夹，然后新建一个文本文件，编辑内容为“Copy *.csv combine.csv”，保存文件名为"合并.bat"（即批处理文件），如果是xls文件则改写为“Copy *.xls combine.xls”（实践证明文件名如果设置为中文则不识别，所以用了“combine”），双击bat文件即可快速合并。
那么，如果收集到的不是csv和xls格式，而是xlsx，那也没关系，可以通过格式转换为csv。我一开始想的是批量转换文件名，结果发现，转了之后没有用，说明不能通过单纯修改后缀名的方法来解决。
2.关于把xlsx转换为csv格式，这里介绍一种方法——
同样把所有文件放到一个新建文件夹中（保险起见最好是英文路径），同时在文件夹中新建一个excel文件，打开该文件，按ALT+F11键或右击sheet1工作表标签调出vb界面，“插入”》“模块”，粘贴以下代码：
Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\ms-off1\Desktop\temp\"
sPath = "C:\Users\ms-off1\Desktop\temp\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
'MsgBox (wB.Name)
For Each wS In wB.Sheets
wS.SaveAs sPath & wB.Name & ".csv", xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub
其中，fPath 定义了存放Excel文件的路径，sPath定义了csv文件的输出位置，根据个人情况进行修改，不要忘记路径最后的左斜线。上面的代码也可以实现从xls到csv格式的转换。
到这里再重复上面的操作即可完成多个文件合并，故事就讲完了。不过既然折腾，那就多折腾一波：
3.怎么反过来把csv批量转换成xlsx呢？
同样的操作，输入下面代码：
Sub CAVToXLSX()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\Micro\Desktop\source\"
sPath = "C:\Users\Micro\Desktop\target\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".csv" Or Right(fDir, 5) = ".csv" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
'MsgBox (wB.Name)
For Each wS In wB.Sheets
wS.SaveAs sPath & wB.Name & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub
同样要注意修改文件路径。
关于转换xlsx到csv 文件和转换csv到xlsx文件，对应的也有人提供了python代码，现在我还不会，姑且不用。
4.下面的小技巧是关于多个excel文件的合并，这种需求不是很多，可能有时候领导想看一批数据，又不想一个一个打开的时候，就用到啦。
这种情况下，你拿到很多个excel文件，也可能是csv文件，需要快速合成为一个文件，每个csv变成合成后文件中的一个sheet，sheet名为原来的文件名。同样可以利用VB编写的宏来实现，前面的操作都一样（把所有文件放到一个新建文件夹，在里面新建excel文件，打开excel文件，调出vb窗口并新建模块）代码如下：
'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant
'定义循环变量
Dim i As Integer
i = 1
'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
这时候点击“运行”按钮，或者按F5运行的时候回弹出窗口让你选择文件，你应选择要合并的多个文件，而不是新建的excel文件，就可以了。你有几个文件，就会闪几下，最后全部合并完成（如果有十来个还好，如果上百个，最好还是每10个或20个合并成一个吧，不然就算合并了一个个的点sheet也会很费劲）
5.既然多个文件可以合并成多sheet的单个文件，那么反过来，如果一个excel文件有多个sheet，也可以拆分成多个单独的文件，每个文件只有一个sheet，文件名为sheet名，
用以下代码（----拆分后格式为xlsx）：
Sub SplitWorkbook()
Dim workbookPath As String
workbookPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each wSheet In ThisWorkbook.Sheets
wSheet.Copy
Application.ActiveWorkbook.SaveAs Filename:=workbookPath & "\" & wSheet.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
或者
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
以上参考：
https://jingyan.baidu.com/article/3a2f7c2ea4809866afd611ed.html
https://jingyan.baidu.com/article/ca2d939d767a16eb6c31ce85.html
https://www.51wikihow.com/excel/how-to-split-workbooks-into-separate-files-in-excel.html
https://www.zhihu.com/question/39234324
https://blog.csdn.net/Gipsy_Danger/article/details/80142396
https://www.sohu.com/a/276904119_367376
6.此外，一开始提到的批量修改文件名，
这个给你可能更常用，方法也很简单，用excel完成：
在C盘新建一个temp文件夹（以后都在该文件夹下完成，养成好习惯），在里边新建一个名为“rename”的excel文件，内容格式为：
image.png
再新建一个名为“ren”的bat文件，里面内容格式为（注意没了表头）：
image.png
然后把要修改的文件扔到这个文件夹中，双击
bat文件就可以了。
网友评论