大家好: 最近在做模型实证分析,需要用到股票指数和个股数据,碰到一些问题: 工作簿中有三个sheet,分别记录了股票指数、股票a、股票b的原始数据,如图1、图2、图3所示,现在需要把股票a和股票b的价格数据按照相应的日期拷贝到“股票指数.sheet”中去。 但问题是:由于停牌等原因,单只股票的原始数据可能有缺失,例如股票a缺少2015年1月15日至1月16日的数据,股票b缺少2015年1月5日至1月8日的数据。此时需要依据向后一交易日看齐的原则补充数据,例如,股票a在2015年1月15日至1月16日的价格统一确定为等于股票a后一交易日即1月19日的价格12.5,股票b在2015年1月5日至1月8日的价格统一确定为等于股票b后一交易日即1月9日的价格10。 如图4所示,采用以上方法补齐的数据区域已经通过黄色高亮标明,现在有数百只股票的数据需要拷贝到“股票指数.sheet”中后再补齐,请问高手们如何通过VBA实现。 非常感谢。
|