VBA实例(13) – 自动生成序号、一键排版(列宽、行高自适应等) - 永恒君的百宝箱

VBA实例(13) – 自动生成序号、一键排版(列宽、行高自适应等)

实用技巧 永恒君 62℃ 0评论

今天介介绍四个简单但是很实用的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(10).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的文件分享出来,需要的就直接使用吧。

微信公众号后台回复实例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的视频教程,非常的实用。


需要的话,微信公众号后台回复“VBA”获取吧~~

欢迎交流!


微信公众号:永恒君的百宝箱

个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » VBA实例(13) – 自动生成序号、一键排版(列宽、行高自适应等)

喜欢 (0)
发表我的评论
取消评论
表情