12
返回列表 上一主題 發帖

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

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

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

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 2014-11-22 15:22 | 只看該作者
各位大大好,

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

公式我不會,
若改用 Excel VBA 倒是很容易做到此功能.
  1. Sub nn()
  2.   Dim lRow&
  3.   Dim vD, vA
  4.   
  5.   Set vD = CreateObject("Scripting.Dictionary")
  6.   lRow = Cells(Rows.Count, 5).End(xlUp).Row
  7.   Range(Cells(5, 5), Cells(lRow, 5)).Clear
  8.   lRow = 5
  9.   Do While Cells(lRow, 2) <> ""
  10.     vD(CStr(Cells(lRow, 2))) = lRow
  11.     lRow = lRow + 1
  12.   Loop
  13.   
  14.   For Each vA In vD
  15.     Cells(vD(vA), 5) = vA
  16.   Next
  17. End Sub
複製代碼

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
12
返回列表 上一主題