利用VBA代碼實現(xiàn)數(shù)據(jù)序號的自動遞進

林麗華

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

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

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

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