標題: [發問] 如何用VB MACRO去轉欄位的格式呢?? [打印本頁]

---

作者: marson    時間: 2012-11-9 11:24     標題: 如何用VB MACRO去轉欄位的格式呢??

各位大師，

我已經可以用EXCEL VB從證交所拉回每個月的資料
但是發生一個問題是日期的部分格式不正確,直接用EXCEL也無法把格式轉成日期，該怎麼辦呢??
1.
可以直接用VB轉成日期的格式嗎??
2.
還有如何將兩個SHEET合成一個
每一個SHEET的總欄數不會固定

謝謝囉~~

---

作者: GBKEE    時間: 2012-11-9 17:34

回復 1# marson
依你的附檔製作

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim SH As Worksheet
   
4.     Sheets("SHEET3").Cells.Clear
   
5.     Sheets("10").Rows(1).Copy Sheets("SHEET3").[A1]
   
6.     For Each SH In Sheets(Array("10", "11"))
   
7.         With SH.Range("A2", SH.[A2].End(xlDown))
   
8.             .Replace Split(.Cells(1), "/")(0), Val(Split(.Cells(1), "/")(0)) + 1911
   
9.             .EntireRow.Copy Sheets("SHEET3").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
10.         End With
    
11.     Next
    
12. End Sub

複製代碼

---

作者: marson    時間: 2012-11-9 21:06

謝謝GBKEE大師
原來程式可以寫這麼簡單

---

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