C2 =如果(B2 & lt;& gt""、IFERROR(VLOOKUP(B2,$B$1:C1,2,)、MAX($ C $ 1:C 1)+1)、IF(sum product(($ B $ 1:B 1 = " ")*(A $ 1:A 1 = A2))、MAX(($ B $ 1:B 655438
數組公式,Ctrl+Shift+Enter結束。拉下即可使用的
方法二:VBA
先看效果
把下面的代碼放到這個工作表中:(註意:Name1不能和Name2重名,否則可能導致排序錯誤,不應該有來自妳的名字)。
Sub?測試()
暗淡?d,?啊?rs,?我& amp,?k & amp,?m$,?n$,?x美元
設置?d?=?CreateObject(" scripting . dictionary ")
arr?=?[A2]。調整大小([A65536]。結束(3)。劃?-?1,?2)
rs?=?[C2]。調整大小([A65536]。結束(3)。劃?-?1,?1)
k?=?1
為了什麽?我?=?1?去哪?欠奉
m?=?arr(我,?1)
n?=?arr(我,?2)
x?=?IIf(n?& lt& gt?"",?n,?m)
如果?不是嗎?d .存在(x)?然後
d(x)?=?k
rs(我,?1)?=?k
k?=?k?+?1
其他
rs(我,?1)?=?d .項目十
結束?如果
然後
設置?d?=?沒有任何東西
[C2]。調整大小([A65536]。結束(3)。劃?-?1,?1)?=?同悅
結束?潛水艇