VBA编程的问题

来源：百度知道 编辑：UC知道 时间：2024/06/23 09:00:46
yong新手问题，关于使用VBA挑选日期
假设我的A6到A3000是日期年/月/日，B6到B3000是各日的回报率

我只要挑选其中的每个月的第一天到列F

每个月最后5天的平均回报率到G

每个月全部平均回报率到H

然后那3列生成表格

我该怎么写？

Sub Macro1()
'
' Macro1 Macro
' 宏由 Stanley 录制，时间: 2008-9-23
'

'该段为确保排序和剔出记录间的空行。
Range("A6").Select
ActiveCell.Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
'''''''''''''''''''''''''''''

Range("A6").Select
targetrow = ActiveCell.Row
Selection.End(xlDown).Select
'currmon用于保存当前行的月份
currmon = Month(ActiveCell)
ActiveCell.Offset(0, 1).Range("A1").Select

'monchange用于判断月份是否有变化，True为变化，False为没变
monchange = False

'到达第一行时退出
Do Until Active