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」獲取吧~~

歡迎交流！

推薦閱讀：