PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-20 19:01 | 只看該作者

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

各位大大好,

請教.....
我想在E欄下一個公式，在沒有排序的情形下,讓B欄相同產品編號，留下最後一個就好.
例如:00021025025的最後一個相同編號在B24,只在B24顯示產品編號,其餘就空白

進貨單日報表2.rar (22.56 KB)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

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

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

複製代碼

TOP

PJChen

　暱稱: 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

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

TOP

PJChen

　暱稱: 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樓的情形,有公式可以用嗎?

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2014-11-28 12:29 | 只看該作者

回復 4# PJChen

試看看
E5=IF(COUNTIF(B:B,B5)=1,B5,IF(ROW()=MATCH(B5,B:B,2),B5,""))
公式往下拉

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

6^#

發表於 2014-12-11 20:43 | 只看該作者

回復 5# owen06

您好,

感謝您的回復,我試了公式,它在排序的情形下沒有問題,但若沒有排序,則會出錯,無法正確的show出最後一筆料號.
請問還能怎麼修正公式呢?

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

7^#

發表於 2014-12-12 11:30 | 只看該作者

回復 6# PJChen

E2=IF(COUNTIF(B$2:B2,B2)<COUNTIF(B:B,B2),"",B2)
往下拉，請問是不是你要的需求?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

8^#

發表於 2014-12-13 12:47 | 只看該作者

回復 7# samwang

感謝大大,

我把它改成這樣,就是我要的了,太謝謝了...
這樣的公式對我來說太有用了...
=IF(COUNTIF(B$5:B5,B5)<COUNTIF(B:B,B5),"",B5)

TOP

jomeow

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 96
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2012-8-29
最後登錄: 2023-10-30

9^#

發表於 2018-3-29 12:35 | 只看該作者

PJChen大大你好,

請想教.. 為何會用 MATCH(B5,B:B,2)?
我只知道match 可以用 -1, 0 , 1...
但不明白用2是為什麼呢?

請教各位大大幫忙解答..
^^

回復 PJChen

試看看
E5=IF(COUNTIF(B:B,B5)=1,B5,IF(ROW()=MATCH(B5,B:B,2),B5,""))
公 ...
owen06 發表於 2014-11-28 12:29

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^#

發表於 2018-3-30 17:10 | 只看該作者

=IF(ISNA(MATCH(B5,B6:B3000,)),B5,)&""

TOP