利用VBA代碼實現數據序號的自動遞進

林麗華

同事前來求助，A列數據都是類似于a、b、c這樣的數據，其中的a、b、c都有若干個，現在要求在B列對應形成a1、a2、a3、b1、b2、b3、c1、c2、c3…，也就是說要求實現數據序號的自動遞進。除了手工錄入之外，有沒有簡單一些的方法呢？

利用VBA代碼可以輕松實現上述需求，按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側窗格插入一個空白模塊，手工輸入或粘貼如下代碼（相關代碼可關注電腦迷微信回復“201507vba1”獲得，如圖1）。

代碼檢查無誤之后，依次選擇“文件→關閉并返回到Microsoft Excel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開“宏”對話框，選擇并運行宏，很快就可以獲得圖2所示的結果。

如果覺得VBA代碼過于麻煩，也可以在B2單元格輸入公式“=A2&COUNTIF（A$2：A2，A2）”，這里的COUNTIF函數用來計算指定的單元格區域中滿足條件的單元格個數，“&”表示將前后的字符連接起來，向下拖拽填充柄，同樣可以獲得自動遞進的序號。