如何利用excel vba计算每月最后5天的平均值

来源：百度知道 编辑：UC知道 时间：2024/05/07 03:28:24
数据给的是93-03 10年间的每月交易日的情况 让用vba写程序计算每月最后5天的平均值。哪位程序高手能告诉下应该怎么写 谢谢了

10分太少。假设只有两列数据，A列是日期，B列是要算平均数的数据。
每月最后5天的平均值将保存在每月最后一天的第三列。

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

'
'该段为确保排序和剔出记录间的空行，如包含更多列则修改Columns("A:?")中的？成需要的列。
Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
'''''''''''''''''''''''''''''

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

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