《EXCEL宏批量处理表格技巧.docVIP

这几天整理示范校资料，老师从学校的系统内导出两个EXCEL文件，每个文件有14张学生数据表,总共28张表格，每张表的表格宽度不一，格式不同，如果需要整理成统一格式，需要花费大量时间。为了快速解决这个问题，我编写了一个表格批量处理的宏，在表格内执行宏，可以自动对数据表进行格式调整，快速解决问题。如果有特殊的功能需求，编程难度比较大，大家也可以通过宏录制的方式去实现。 批处理前的数据表： 图1每张表格的格式都不一致，部分数据也因为格式问题无法正常显示 图2每个EXCEL文件内至少有14张学生数据表，数据内容格式不一 图3数据很杂乱，“出生年月”栏数据格式不统一，且因为列宽问题导致部分数据无法正常显示 批量处理后效果： 图4 批量处理后，批量调整每个表格的列宽，表格每一项标题居中，出生日期统一格式，达到美观大方的效果，并且表格宽度调整到一张纸内可以全部打印，在打印的时候节约纸张。 一、EXCEL宏代码说明 这个宏是在office2007版本下使用VBA编程语言编写的，可以自动寻找EXCEL文档中指定的单元格并自动对单元格以及单元格内数据的大小、字体格式、对齐方式等属性进行调整。这个宏处理实现以下功能： 批量调整表格列宽； 可以自动设置某一列数据的格式，通过进一步编程也可以实现批量设置多个数据列格式； 批量设置某一行的单元格格式，如全部居中； 自动设置某一个单元格的格式，如单元格高度等； 在宏程序代码中符号“”表示注释，在“”后面的命令不会执行，可以对程序的命令进行解释和对不需要的命令进行屏蔽。 如果需要详细了解可以到微软的网站上查看EXCEL编程相关的技术文档，网址为：/en-us/library/bb979621(v=office.12).aspx 以下是EXCEL批量处理表格宏程序代码： Sub EXCEL格式批量调整() EXCEL格式批量调整 V1.0 author：项目管理部 杨晖 功能描述：批量处理表格格式 Dim x As Integer 定义整数变量，用于选定表格 从第一格到第12格，每个数字对应表格的字母横向字母，如“1”对应表格中“A”，“2”对应表格中“B”，依次类推，根据需要设置 For x = 1 To 12 设置每个表格的列宽，在数组Array里面设置每个表格的宽度，比如第一个数字4.38 对应表格“A”列的列宽 ，第二个数字13.5对应表格“B”列宽，依次类推。 Columns(x).ColumnWidth = Array(4.38, 13.5, 6.88, 5.25, 6.25, 10.25, 8.38, 8.38, 8.38, 15.5, 13, 15.25)(x - 1) Next 设置表格 F列 时间格式为 yyyy-mm-dd With Range(F:F) .NumberFormatLocal = [$-F800]dddd, mmmm dd, yyyy End With 设置表格 A列 格式居中对齐 可以调整参数(A:A)去选定表格某一列，如果需要调整多个列表，复制下面的代码粘贴在后面，然后修改参数即可 With Range(A:A) .HorizontalAlignment = xlCenter 设置水平对齐方式 为居中 .VerticalAlignment = xlCenter 设置垂直对齐方式 为居中 .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With 设置表格设置表格第2行 格式居中对齐 可以调整参数(2:2)去选定表格某一列 Rows(2:2).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentL