- 帖子
- 45
- 主題
- 7
- 精華
- 0
- 積分
- 102
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2016
- 閱讀權限
- 20
- 註冊時間
- 2019-4-27
- 最後登錄
- 2026-4-16
|
想將C欄重複的項目刪除，變成D欄的效果
程式目前功能是單條件多結果列出，並將列出資料以"，"隔開
Sub test1()
[料件!C2:C6000].ClearContents '清除C資料
Set xD = CreateObject("Scripting.Dictionary") '字典
Sheets("料件").Select '跳到
arr = Range([位置!A2], [位置!D65536].End(xlUp))
For i = 1 To UBound(arr)
xD(arr(i, 1)) = xD(arr(i, 1)) & "," & arr(i, 4)
Next i
Set xR = Range([A2], [A65536].End(xlUp))
For Each xT In xR
Cells(xT.Row, "C") = xD(xT.Value)
Next
Set xD = Nothing
End Sub
該如何修改程式呢?還是只能打掉重寫? |
-
-
1010A.zip
(17.6 KB)
|
發表於 2020-10-10 20:13
| 
