写一个自定义函数,输入参数——原始数据区域,即可将原始数据区域内的一日有多次交易的不规则收益数据标准化为每日一个收益数据的格式,方法是合并一日有多次交易的数据
技术困难在于:一是如何获取区域变量DataArea中某一个单元格DataArea(1,1)所在的行标或者列标;二是如何计算区域变量区域变量的行数或者列数;另外就是如何选定这个区域变量代表的单元格区域,试用Select没有成功,如果能解决一和二,这个问题也就解决了
代码如下:
Function DataDeal(DataArea As Range) 'DataArea赋值Sheets("原始数据").Range("A11:B313"),编写代码的时候不知道具体参数值
Col = DataArea(1, 1).Column '获取DataArea(1,1)所在的列,有错误;需要将合并后的数据填入Col+2和Col+3列
RowNum = WorksheetFunction.Count(DataArea).Row '计算DataArea所有的行数,有错误;for循环需要用到RowNum,区域选择不一定选择到有数据的最后一行,所以不能用xldown
For i = 11 To RowNum
Next i
End Function ************************************ 答案:DataArea.rows.count ************************************** |
|