第一次用到VBA，是由于matlab输出到excel时，单元格内的内容需要换行，不管自己怎么输\n，&Chr(10)&都不起作用，而需要操作的excel文件数量又很多，所以索性用excel的编程功能来实现，下面附上代码：

参考代码

功能：批量的打开某文件夹下的excel文件，对excel文件分别进行设定操作

Sub 宏1()'

Filename = Dir("C:\m\体检工具\体检程序_new\体检结果excel" & "\" & "*.xlsx")   '文件夹地址；

Do While Filename <> "" '若工作簿名字不为空，执行循环体；

     fn = "C:\m\体检工具\体检程序_new\体检结果excel" & "\" & Filename  '获取文件名称；

     Set twb = Workbooks.Open(fn)  '打开文件夹下的工作簿；

     %%%%%%%%%%%%%%%%%%%%%%%%%%%%

      Cells.Replace What:="$", Replacement:="" & Chr(10) & "", LookAt:=xlPart, SearchOrder _:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False    '替换操作；

     Columns("D:D").ColumnWidth = 84  '列宽设置操作；

     Columns("E:E").ColumnWidth = 84

     %%%%%%%%%%%%%%%%%%%%%%%%%%%%

      twb.Close True '保存并关闭工作簿

      Filename = Dir  '继续下一个工作簿

Loop

End Sub

说明

1、代码运行直接在编程界面按F5即可，也有调试模式

2、中间部分可以根据自己的需要进行修改，如果不知道代码，就点宏录制，进行操作后，结束录制，在宏中就可以看到对应代码

3、如果找不到开发工具，请在excel界面：文件——选项——自定义功能区里把开发工具选上