你要的答案在前一篇 "要抓三個月的資料卻沒反應"我的回答內 "另一種寫法 :"
依原程式修改 : thisyear = Year(Now) '今年 thismonth = Month(Now) '這個月 lastrow = Acti...
Dim datestart as variant, dateend as variant lastrow = ActiveSheet.UsedRange.Ro...
2 另外這似乎沒有必要使用迴圈因為你應該沒有要「往下填滿所有的空列」吧
john083423的鐵人檔案