在沒有排序的情形下,相同產品編號，留下最後一個就好 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 在沒有排序的情形下,相同產品編號，留下最後一個就好

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

[發問] 在沒有排序的情形下,相同產品編號，留下最後一個就好

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

1^# 跳轉到 »

發表於 2014-11-22 15:22 | 顯示全部帖子

各位大大好,

請教.....
我想在E欄下一個公式，在沒有排序的情形下,讓B欄相同產品編號，留下最後一個就好 ...
PJChen 發表於 2014-11-20 19:01

公式我不會,
若改用 Excel VBA 倒是很容易做到此功能.

Sub nn()
Dim lRow&
Dim vD, vA
Set vD = CreateObject("Scripting.Dictionary")
lRow = Cells(Rows.Count, 5).End(xlUp).Row
Range(Cells(5, 5), Cells(lRow, 5)).Clear
lRow = 5
Do While Cells(lRow, 2) <> ""
vD(CStr(Cells(lRow, 2))) = lRow
lRow = lRow + 1
Loop
For Each vA In vD
Cells(vD(vA), 5) = vA
Next
End Sub

複製代碼

靜思自在 : 不要隨心所欲，要隨心教育自己。

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