VBA 将Excel工作簿中所有表格进行一键排版

自己管理的Excel工作簿经过多人的修改，其中的很多格式会经常出现不一致的情况，这里提供VBA代码，用来实现表格数据格式一键排版，免除手动频繁调整Excel数据格式。

 1 Option Explicit
 2 Option Base 1
 3
 4 Sub autoSet()
 5     Dim i As Integer
 6
 7     For i = 1 To Sheets.Count
 8         Sheets(i).Activate　　　　　　'这行代码不能省，再进行表格操作前，需要先激活需要操作的表格
 9         Sheets(i).Cells.Select
10         With Selection.Font
11             .Name = "微软雅黑"　　　　'设置字体种类
12             .Size = 11　　　　　　　　'设置字体大小
13             .Strikethrough = False
14             .Superscript = False
15             .Subscript = False
16             .OutlineFont = False
17             .Shadow = False
18             .Underline = xlUnderlineStyleNone
19             .TintAndShade = 0
20             .ThemeFont = xlThemeFontNone
21         End With
22         With Selection
23             .HorizontalAlignment = xlLeft　　'设置文本排列，靠左
24             .VerticalAlignment = xlCenter　　'设置文本排列，垂直居中
25             .Orientation = 0
26             .AddIndent = False
27             .IndentLevel = 0
28             .ShrinkToFit = False
29             .ReadingOrder = xlContext
30             .MergeCells = False
31         End With
32         Sheets(i).Range("A1").Select
33     Next
34 End Sub

需要设置其他方面的格式，直接在for循环内添加相应代码即可实现，可以先录制宏来查看设置的代码，再进行添加

转载于:https://www.cnblogs.com/architecture101-gbt/p/8459619.html

VBA 将Excel工作簿中所有表格进行一键排版相关推荐

如何使用VBA实现将工作簿中全部表格转换为区域
工作表中的表格(有时也被称为超级表格)具备自动扩展等诸多功能,有时需要将表格转换为普通单元格区域,在Excel中操作很简单. 步骤1 选中表格中的任意单元格. 步骤2 依次单击[表设计]>> ...
3分钟写个VBA：Excel工作簿所有子表数据一键汇总
今天同事问我,他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面,怎么操作比较快?然后我就想到了VBA,3分钟给他写(录)了一个宏,一键完成所有数据汇总. 所以今天我就分享这个小技巧,不 ...
VBA：Excel工作簿所有子表数据一键汇总
今天同事问我,他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面,怎么操作比较快?然后我就想到了VBA,接着给他写(录)了一个宏,一键完成所有数据汇总. 所以今天就分析这个小技巧,不需要 ...
Excel一键删除工作簿中所有表格中的条件格式
今天要和大家分享的是,Excel一键删除工作簿中所有表格中的条件格式的操作,注意是所有表格的,而不是一个表格一个表格的去删除 (方方格子插件) 1.先看动图演示吧 2.打开工作簿后,我们看到有3个表格 ...
在Excel工作簿中显示网络图片
If you add pictures to an Excel workbook, the file size can increase pretty quickly. And if you're u ...
c# xls 复制一行_c# – 将excel工作簿中的第一行复制到新的Excel工作簿
如何获得excel工作簿中的第一行&使用.net c#将其保存到新的excel工作簿中?我不知道列的数量,因此需要获得整行.这就是我的新工作簿是空白的(没有行复制) Excel.Workboo ...
excel快速填充_Excel教程：24秒，提取excel工作簿中300张图片
微信扫码观看<财务人的Excel速成视频> 或许您在看本篇教程的时候,会很惊讶,会有疑问,Excel和压缩软件有啥关系,提取图片居然可以这样做!小雅用的是Excel2013版本,给大家分享 ...
如何在新的Excel工作簿中更改默认的工作表数
By default, new workbooks created in Excel contain one worksheet. If you typically use more than one ...
【excel使用】批量删除excel工作簿中多个工作表的同一列内容？
1.首先要保证多个工作表(sheet页)表头保持一致,或者部分保持一致(只能修改一致的部分) 2.如果想要删除所有工作表中的B列内容 ,一个一个的删除会很麻烦,所以需要使用批量删除: 1)鼠标点选工作 ...

VBA 将Excel工作簿中所有表格进行一键排版

VBA 将Excel工作簿中所有表格进行一键排版相关推荐

最新文章

热门文章