重新編號 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 重新編號

返回列表下一主題上一主題發帖

重新編號

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

1^# 跳轉到 »

發表於 2011-1-21 08:58 | 顯示全部帖子

回復 1# myleoyes

Sub changeindex()
Dim mydic As Object
Dim mycell As range
Dim i As Integer
Set mydic = CreateObject("scripting.dictionary")
For Each mycell In range([c153], [c153].End(xlToRight))
If mydic.exists(mycell.Value) Then
mycell.Value = mydic(mycell.Value)
Else
i = i + 1
mydic(mycell.Value) = i
mycell.Value = mydic(mycell.Value)
End If
Next
Set mydic = Nothing
End Sub

複製代碼

現在要理解發問者的意思,比寫程式更困難

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題