[發問] Vlookup找資料的最大日期

s13983037

各位大大你們好
我想使用Vlookup找相對的資料的最大日期
如附件
由於比數相當的多 想請問是否有相對應的方法或者函數去解決這問題 謝謝

下載 (5.45 KB)
附件一

2014-11-18 19:34

PKKO

小弟不才,用自己想的方式,您試試看,我是假設你的日期是位於A欄
,若要更改,請在下面這行的A:A換成別欄
rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address

1. Sub test()
   
2. Application.ScreenUpdating = False '關閉螢幕
   
3.     Dim rng$
   
4.     Columns("A:A").NumberFormatLocal = "0.00_);(0.00)" '數字格式
   
5.     '找出最大數字的位置
   
6.     rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address
   
7.     Columns("A:A").NumberFormatLocal = "yyyy/m/d" '轉換回原本日期格式
   
8.     'range(AA)就是你要的答案=>最大的日期
   
9.     'rng 是最大日期的絕對位置
   
10.     MsgBox Range(rng)
    
11. Application.ScreenUpdating = True '恢復螢幕
    
12. End Sub

複製代碼

回復 1# s13983037

Baracuda

用 Max 函數即可，用巨集寫起來量蠻大的。

s13983037

回復 3# Baracuda


    您好 我想請問 關於Max可以寫在Vlookup裡面嗎  還是有其他用法??或者範例參考 謝謝

PKKO

回復 4# s13983037

前面大大說的沒錯,這樣比較快
如果您的資料在A欄
函數請輸入:
    =TEXT(MAX(AA:AA),"YYYY/MM/DD")

owen06

回復 4# s13983037


    以我的圖片為例，在B1輸入=MAX((F1:F9=A1)*G1:G9)，上列公式是陣列公式，輸入完成要按 Ctrl+Shift+Enter 鍵。
    這樣你就可以不論類型A或B都能去找出最大值了。
   
    順便附個找到的教學網址給你參考 http://ppt.cc/BAIh

s13983037

回復 6# owen06


    謝謝幫忙 大致了解了 感謝