- 帖子
- 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
|
|
