批量excel文件格式调整（规整，两行）

gjytm

求助，我有用VBA生成的一系列文件，格式规整，但是不知道如何调整单元格的格式。请求帮助，谢谢。

1.    调整本文件夹内的所有文件的格式（共两行）

2.    所有有内容的单元格加边框线

3.    所有单元格宽度为85像素（除了第一列和第四列单元格宽度是45像素）

4.    所有单元格自动换行

5.    所有单元格内容居中

6.    所有字体为宋体

7.    所有字号为11号

8.    所有单元格文字为黑色

9.    第一行文字加粗

10.  第一行单元格填充浅灰色

11.  第二行单元格无填充色

deadzlq

对象和方法不熟悉，可以用录制宏反查

sudongcang

这么多表格  就为了打印或者查看么  还不如弄一个总台账 另一个sheet显示 结果  格式都是统一的 不用打开关闭那么多工作簿了  与excel是工具的意义背道而驰

gjytm

deadzlq 发表于 2019-9-8 14:58
对象和方法不熟悉，可以用录制宏反查

谢谢。录制宏给我了启发。但是不知道形成的编码如何整合到另一个sub中。。。
Sub 独立格式调整专用()
'独立运作成功，但是整合到上一个失败，未能全自动
    Columns("A:E").Select  '选择列，范围需要根据实际情况调整
    Selection.ColumnWidth = 11.63  '所有选择的列调整宽度，数值自行调整，请提前测试合适的宽度'
    Rows("1:2").Select  '选择前两行
    With Selection  '
        .HorizontalAlignment = xlCenter  '居中
        .VerticalAlignment = xlCenter  '居中
        .WrapText = True    '自动换行
    End With  '
    Range("A1:E2").Select  '选择区域，手动根据实际情况自行调整
    Selection.Borders.LineStyle = 1  '所选区域边框线实线
End Sub