返回列表 上一主題 發帖

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

回復 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

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題