初步了解vba的编写格式（VBA格式化代码示例1-3）

【分享成果，随喜正能量】缘来缘去，缘生缘灭，万物之间的纠葛，怕是世人永远都无法一一参透的。我们记得珍惜就好。我们来到这世上，本身就是一场缘分。一个人的好，要记一辈子；一个人的坏，即便是忘不了，也不要想着报复。缘分在的时候，好好珍惜，缘分不在了，偶尔想起。。

VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。从这些教程及工具中，大家可以看到VBA确实是一门实用技术。正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。

对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解。如果您有了VBA的一定基础可以根据自己的需要，进行教程的选择及工具的利用，教程提供的程序文件就如一座大型的代码库支持着大家的工作。

工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列。这些工具是大家学习VBA的好帮手。 对于急用的学员，可以立竿见影解决自己的工作效率问题。其中NZ系列工具还有专门版本资料，提供给已按部就班学习完我所有教程的学员。

VBA是面向对象编程，博大精深，包括我自己也在不断的学习和提高，这里我会分享些一些有用的片段，以弥补我教程的补足。这些片段为了大家更好的领会和掌握，我会用英语和汉语同时发布。今日的内容：VBA格式化代码示例1-3

第二章 VBA格式化代码示例

VBA Formatting Codes Examples

1 插入多列Insert Multiple Columns

Sub InsertMultipleColumns()'插入多列

Dim i As Integer

Dim j As Integer

ActiveCell.EntireColumn.Select

On Error GoTo Last

i = InputBox("输入您要插入的列数", "插入列")

For j = 1 To i

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove

Next j

Last:

Exit Sub

End Sub

此代码可帮助您一次单击输入多个列。运行此代码时，它会询问您要添加的列数，当您单击“确定”时，它会在所选单元格后添加输入的列数。如果要在所选单元格之前添加列，请将代码中的 xlToRight 替换为 xlToLeft。

This code helps you to enter multiple columns in a single click. When you run this code it asks you the number columns you want to add and when you click OK, it adds entered number of columns after the selected cell. If you want to add columns before the selected cell, replace the xlToRight to xlToLeft in the code.

2 插入多行Insert Multiple Rows

Sub InsertMultipleRows() '插入多行

Dim i As Integer

Dim j As Integer

ActiveCell.EntireRow.Select

On Error GoTo Last

i = InputBox("输入您需要插入的行数", "插入行")

For j = 1 To i

Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove

Next j

Last:

Exit Sub

End Sub

使用此代码，您可以在工作表中输入多行。运行此代码时，可以输入要插入的行数，并确保从中选择要插入新行的单元格。如果要在所选单元格之前添加行，请将代码中的 xlToDown 替换为 xlToUp。

With this code, you can enter multiple rows in the worksheet. When you run this code, you can enter the number of rows to insert and make sure to select the cell from where you want to insert the new rows. If you want to add rows before the selected cell, replace the xlToDown to xlToUp in the code.

3 自动填充列Auto Fit Columns

Sub AutoFitColumns() '自动填充列

Cells.Select

Cells.EntireColumn.AutoFit

End Sub

此代码可快速自动填充工作表中的所有列。因此，当您运行此代码时，它将选择工作表中的所有单元格并立即自动填充所有列。

This code quickly auto fits all the columns in your worksheet. So when you run this code, it will select all the cells in your worksheet and instantly auto-fit all the columns.

【分享成果，随喜正能量】

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】幸福是什么样子的？自己在有限的生存时间里，有一个好的状态，有一些情趣爱好。认真对待每一个日子、做好每一件小事、学会关心和理解身边的每一个人、用心欣赏路边的每一道风景。把这些组合起来，其实就是你离幸福最近的距离。每个人的幸福都掌握在自己手中，与他人毫无关系。走好自己的路，过好自己的桥，保持宁静淡泊的心境，就能时时处处感觉到幸福的随行。。

,