返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-10-20 13:19 | 只看該作者
DEAR Hsieh 大大
1.100%符合需求.THANKS*10000
羅

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
258  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題