一段简单的VBA代码,让你自如操作Excel!
我们经常会在工作表的一列中输入员工的姓名,中文姓名有2个字,也有3个字的。一列中不同字数的姓名会使列显得不够整齐美观! 为了实现整齐,平时我们可以通过鼠标设置单元格区域的格式中选择水平分散对齐即可实现美观对齐的功能需求。 在自动化应用中,我们可以使用如下简短的代码使用需求!
抛砖引玉的场景需求:将下表医师姓名居中并排列整齐。
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 中文姓名对齐()With Selection .HorizontalAlignment = xlDistributed '水平对齐选择分散对齐 .VerticalAlignment = xlCenter '垂直对齐选择居中对齐 .IndentLevel = 1 '缩进1个字符 .ShrinkToFit &#