帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-4-22 12:08 | 只看該作者

[發問] (已解決)如何擷取不同類別代號的最後一筆資料

本帖最後由 freeffly 於 2012-2-22 17:21 編輯

最新代號擷取.rar (14.47 KB)

我想要擷取不同類別代號的最後一筆資料。
目前使用的方式如附加檔內所示，有沒有方法可以不用經過步驟一及步驟二直接得到結果資料?

樓主熱帖

字典兩各字還真難理解

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

10^#

發表於 2023-5-18 13:28 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列語字典,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, V, Y, R&, i&, T$, M%, K%
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([A1], Cells(Rows.Count, "A").End(xlUp))
'↑令Brr變數是二維陣列,以A欄儲存格值帶入陣列中
For i = 2 To UBound(Brr)
'↑設順迴圈
T = Left(Brr(i, 1), 2)
'↑令T變數是左邊2字的字串
K = Right(Brr(i, 1), 3)
'↑令K變數是右邊3字轉為數值(因為K宣告是數值)
M = Y(T)
'↑令M變數是T變數查Y字典得到item,
'一開始Y字典裡沒有此key時,item是初始值轉整數=0,
'因為M宣告是整數值
If M < K Then M = K
'↑這是要比較出最大值
Y(T) = M
'↑令以T變數當key,item是當下的最大值放回字典
Next
For Each V In Y.KEYS
'↑設逐項迴圈!令V變數是 Y字典的key
R = R + 1
'↑令R變數累加 1
Brr(R, 1) = V & Format(Y(V), "000")
'↑令以組合字串(結果資料)覆蓋掉原Brr陣列值,
'畢竟Brr的原資料已經用不到了,
'如此就不必再設一個陣列裝結果資料
'但是需要準確的知道結果資料到陣列的哪一列,如R變數或Y.Count
Next
[J2].Resize(Y.Count, 1) = Brr
'↑令Brr局部資料(結果資料)寫入儲存格中,超過此範圍的Brr陣列值忽略
Set Y = Nothing: Erase Brr
'↑令釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

9^#

發表於 2011-4-25 21:27 | 只看該作者

回復 6# ANGELA

這各方式的確是可以一欄搞定
好像也沒造成excel很大負荷
不過還要花點時間消化一下公式
謝謝喔!

字典兩各字還真難理解

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

8^#

發表於 2011-4-25 14:28 | 只看該作者

哈哈,
被老師k頭了,原來只要是人都難免犯錯.

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

7^#

發表於 2011-4-25 14:11 | 只看該作者

哈哈!
我有看到,不是偷笑,是因為我也是一樣

對excel太有把握,常把公式一拉就交了
問題是中間的數字有可能是文字型無法加總
有可能是位置點錯,如應點a1/a20,可是手誤成a2/a2,讓數字異常
讓主管無法信賴,
除了速度外還要正確才是正道

知之為知之，不知為不知，誠實也！

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

6^#

發表於 2011-4-25 14:03 | 只看該作者

回復 3# Hsieh

粗心大意,一直是我的致命傷,從小到大都改不了,謝謝指導,此題應改為
=INDEX(A:A,SMALL(IF(RIGHT($A$3:$A$976,3)<=RIGHT($A$2:$A$975,3),ROW($A$2:$A$975),1000),ROW(A1)))&""
一般我比較慣用INDEX

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-4-23 15:14 | 只看該作者

回復 3# Hsieh

這個方法的確是可以一欄搞定
對excel的負荷也挺大
謝謝大大回復，也看到不同的思考方式

字典兩各字還真難理解

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2011-4-23 15:11 | 只看該作者

回復 2# ANGELA

雖然一樣要提取列號清單也看到不一樣的方法,謝謝版主回復

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 280
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-4-22 23:03 | 只看該作者

回復 2# ANGELA

這樣還是要先取出代號清單
如果要一欄搞定，希望EXCEL能負荷得了
I2陣列公式
=IF(ROW(A1)>SUM(1/COUNTIF($A$2:$A$975,"="&LEFT($A$2:$A$975,2)&"*")),"",INDIRECT("A"&SMALL(IF(LEFT($A$2:$A$975,2)<>LEFT($A$3:$A$976,2),ROW($A$2:$A$975),""),ROW(A1))))

學海無涯_不恥下問

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

2^#

發表於 2011-4-22 12:41 | 只看該作者

I2=OFFSET($A$1,MAX(IF(LEFT($A$2:$A$975,2)=F2,ROW($1:$974),0)),)
陣列公式

TOP