【分享成果，隨喜正能量】緣來緣去，緣生緣滅，萬物之間的糾葛，怕是世人永遠都無法一一參透的。我們記得珍惜就好。我們來到這世上，本身就是一場緣分。一個人的好，要記一輩子；一個人的壞，即便是忘不了，也不要想著報復。緣分在的時候，好好珍惜，緣分不在了，偶爾想起。。
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實踐經驗，全部濃縮在下面的各個教程中：
【分享成果，隨喜正能量】幸福是什麼樣子的？自己在有限的生存時間裡，有一個好的狀態，有一些情趣愛好。認真對待每一個日子、做好每一件小事、學會關心和理解身邊的每一個人、用心欣賞路邊的每一道風景。把這些組合起來，其實就是你離幸福最近的距離。每個人的幸福都掌握在自己手中，與他人毫無關係。走好自己的路，過好自己的橋，保持寧靜淡泊的心境，就能時時處處感覺到幸福的隨行。。