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

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

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

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

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^# 跳轉到 »

發表於 2014-11-26 20:59 | 只看該作者

回復 3# PJChen

請問第1樓的情形,有公式可以用嗎?

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-11-22 20:24 | 只看該作者

回復 2# luhpro

謝謝大大的回覆,執行上沒有問題,但因為檔案做完後要給許多人看,我比較擔心忘了刪除巨集....
想知道有沒有人會用公式的?

高中生 Rank: 3 Rank: 3

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

2^#

發表於 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

複製代碼

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

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