標題: [發問] 求每月第一個交易日 [打印本頁]

---

作者: bhsm    時間: 2015-5-31 12:16     標題: 求每月第一個交易日

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

---

作者: Hsieh    時間: 2015-5-31 22:27

回復 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    時間: 2015-6-1 08:12

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)