標題: [發問] 自動產生項次尋問 [打印本頁]

---

作者: rouber590324    時間: 2017-10-20 08:35     標題: 自動產生項次尋問

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    時間: 2017-10-20 09:59

回復 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    時間: 2017-10-20 13:19

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)