返回列表下一主題上一主題發帖

[發問] 找出每個群組中，日期最靠近今天的列

gameshop

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2013-5-16
最後登錄: 2013-5-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-16 23:00 | 顯示全部帖子

[發問] 找出每個群組中，日期最靠近今天的列

各位先進好

最近在整理一個有兩萬列的Excel

目標是每天會自動抓出最靠近今天日期的資料(但不包含未來)

資料範例如下
群組  日期  數值
A  2012/12/15  15
A  2013/1/17  16
A 2013/5/15  10
A 2014/2/12  49
B  2012/2/3  20
B  2013/4/25 30
B  2014/5/22  50
C  2011/3/3  20
C 2012/2/13 5

例如今天是2013/5/16
則結果則跑出
A 2013/5/15  10
B  2013/4/25 30
C 2012/2/13 5

目前想法是用Today()減掉日期欄位，再取出各群組中min( 大於或等於零的數)
再將那一列抓至新的Worksheet
但不知道如何針對各群組分別進行

請各位先進幫忙指點

非常感謝!!

gameshop

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2013-5-16
最後登錄: 2013-5-16

2^#

發表於 2013-5-17 00:16 | 顯示全部帖子

謝謝前輩分享
程式可以使用

但如果我每一列資料都很長，該如何修改呢
我將 d1(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value,a.Offset(, 3).Value )
往後加一個格子，跑出來會有型態錯誤(應該是下列這行)
Sheets(2).[E1].Resize(d1.Count, 3) = Application.Transpose(Application.Transpose(d1.items))

抱歉因為看不懂這些程式碼，所以無法自行修改

想請教前輩

1.IIf跟IF有什麼差別呢
2.CreateObject函數是什麼呢
另外，我在程式碼中找不到針對各"群組"進行分析的程式碼
請問前輩是怎麼達到結果的呢

抱歉好像問題有點多

非常感謝

TOP

gameshop