返回列表 上一主題 發帖

[發問] 字串刪除重複

[發問] 字串刪除重複

1010.jpg
2020-10-10 20:00

想將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)

感謝軒云熊、准提部林和hcm19522的回復

有發現軒云熊程式點兩次才正常的問題,但也看不出為什麼

hcm19522提供的函數蠻有意思,我一開始也是用函數寫,結果資料跑了30分鐘,太久了才開始用VBA練習

感謝准提部林教的寫程式小技巧以及注意事項

有學到東西,受益良多

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題