- 帖子
- 121
- 主題
- 8
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2021-1-21
- 最後登錄
- 2024-8-20
|
本帖最後由 shuo1125 於 2023-11-28 14:49 編輯
回復 10# Andy2483
感謝Andy大分享For Each另解，原來xlCellTypeConstants包含常數的儲存格也能這樣使用，
以下有錯在煩請指正。
' 遍歷 xA 中的每一個儲存格，排除標題
For Each A In xA.Offset(1, 0).SpecialCells(2)
' 在字典中添加項目，鍵為A 值為xA
Z(A.Value) = xA.Cells(1, A.Column).Value
Next A |
|
發表於 2023-11-28 14:47
| 