[發問] 自動產生項次尋問

rouber590324

DEAR  ALL 大大
1.如圖一 內容之列數不一定.假設如圖一 目前有 AA  BB 則需求如圖二 自動產生項次1 2
   1.1 若有 AA  BB  CC   自動產生項次1 2 3  ...... 請問VBA如何書寫
2.煩不吝賜教  THANKS*10000  

圖一
項次   內容
       AA
          BB
圖二
項次   內容
1     AA
2        BB

Hsieh

回復 1# rouber590324

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([B2], [B65536].End(xlUp))
   
4.    If d.exists(a.Value) = False Then d(a.Value) = d.Count + 1
   
5.    a.Offset(, -1) = d(a.Value)
   
6. Next
   
7. End Sub

複製代碼

rouber590324

DEAR Hsieh 大大
1.100%符合需求.THANKS*10000