[發問] 求每月第一個交易日

bhsm

請問高手:
A:G欄是由網路下載來的個股歷史交易資料(日)，請問有何辦法在K欄自動由A欄依序抓取每月的第一個交易日的日期，因為每個月的第一個交易日不一定在1日，以2000年4月為例，第一個交易日是2000/4/3，請高手賜教，謝謝
test.rar (85.29 KB)

下載次數: 15

2015-5-31 12:15

Hsieh

回復 1# bhsm

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A2], [A2].End(xlDown))
   
4.    If d.exists(Format(a, "yyyymm")) = False Then d(Format(a, "yyyymm")) = a
   
5. Next
   
6. [K2].Resize(d.Count, 1) = Application.Transpose(d.items)
   
7. End Sub

複製代碼

bhsm

回復 2# Hsieh
感謝Hsieh大,VBA執行速度真快,感恩