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

[發問] 字典不重覆請益？

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-9-19 13:24 | 顯示全部帖子

[發問] 字典不重覆請益？

本帖最後由 joey0415 於 2014-9-19 13:25 編輯

圖上兩種寫法都可以不重覆
這一段看得懂
   If Not d.Exists(Cells(i, 1).Value) Then
      d.Add Cells(i, 1).Value, Range(Cells(i, 1), Cells(i, 4))
      End If
而這一段為什麼也可以呢？知道的請幫忙解釋一下！謝謝
Set d(Cells(i, 1).Value) = Range(Cells(i, 1), Cells(i, 4))