VBA实例（13） - 自动生成序号、一键排版（列宽、行高自适应等）

今天介介绍四个简单但是很实用的VBA实例。

1、自动生成序号

输入序列的最大值，然后程序自动帮你生成所有序号。输入10，则生成1-10。

代码：

Sub AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last: Exit Sub
End Sub

演示如下：

2、一键排版（设置列宽自适应）

所谓的自适应，就是根据同一列的内容自动调整为最合适的列宽，不需要我们一列一列的去设置。

代码：

Sub AutoFitColumns()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub

演示如下：

3、一键排版（设置行高自适应）

同上面列宽的类似,根据同一行的内容自动调整为最合适的行高。

代码：

Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub

演示：

4、一键排版（去除文字换行，同时设置列宽、行高自适应）

排版的时候，有时候需要把一个单元格内很多并且分成很多行的内容缩成一行，手动去删除文字换行符有时候很麻烦。

代码：

Sub RemoveWrapText()
Cells.Select
Selection.WrapText = False
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
End Sub

这个代码即可以一键去除换行符，同时也可以一键设置所有单元格的列宽、行高自适应。

同样的，永恒君把上面实例VBA的文件分享出来，需要的就直接使用吧。

wx公号后台回复实例13即可。

---

不少人对VBA代码有抵触心理，其实没有那么复杂，把他看成一个稍微复杂点的函数即可。

当然如果并不打算深入学习VBA，只是临时使用下，那只要会复制黏贴就好了！

至于怎么用VBA代码，可以参考之前的文章：

Excel vba 实例（1） - 批量制作工资表头

Excel vba 实例（2） - 批量将工作表拆分为单独文件

Excel vba 实例（3） - 多个工作簿批量合并

Excel vba 实例（4） - 根据已有名称，批量新建表格

Excel vba 实例（5） - 快速合并n多个相同值的单元格

Excel vba 实例（6） - 一键汇总多个sheet数据到总表

Excel vba 实例（7）-一键批量打印工作簿

Excel vba 实例（8）- 利用正则表达式进行定向提取

Excel vba 实例（9）- 批量插入、删除表格中的空行

Excel vba 实例（10）- 统计同一列中出现次数并标注

Excel vba 实例（11）- 拆分单元格并自动填充

Excel vba实例（12）-如何合并多个单元格而不丢失单元格的数据？

---

Excel VBA功能很强大，但是要熟练的运用起来还是有一定的难度，好在永恒君帮大家搜集了几套关于VBA的视频教程，非常的实用。

需要的话，wx公号后台回复“VBA”获取吧~~

欢迎交流！