第一列为日期，想按日期新建SHEET并分SHEET粘贴

[Gerry_moming]

一个SHEET中前8行内容随机，第9行开始的第一列为日期，想按日期新建SHEET并分SHEET粘贴（前8行每个SHEET都粘贴，第9行开始按时间分sheet粘贴）用VBA如何实现，求大手帮忙

[脆皮大雪糕]

前一阵子还真帮老婆做过类似的宏。 其实录制几个宏再拼凑一下基本就OK了。 1、搞明白你的sheet里面到底有几个日期，这个根据不同的数据量有不同的做法了。根据日期集合循环 2、根据日期创建新sheet，录制一个创建sheet的宏，放到根据步骤1的循环体里 3、复制前8行，到新sheet。这个可录制一段复制黏贴的宏，但是如果量大的话速度慢，而且还有activesheet的问题，稍微控制不好就会报错，建议用循环cell对象赋值的方式。 4、遍历数据源拷贝到不同的sheet里面去，还是建议用cell赋值的方式。当然这有两种做法，一是在步骤1的循环体里面遍历数据源，每次处理一个日期的sheet。这个逻辑比较简单，但是要多次遍历数据源。还有就是遍历一次数据源，根据日期字段分发到不同的sheet里面去，要记录好每个sheet的当前记录条数。

[Gerry_moming]

引用 1 楼 chewinggum 的回复:

前一阵子还真帮老婆做过类似的宏。 其实录制几个宏再拼凑一下基本就OK了。 1、搞明白你的sheet里面到底有几个日期，这个根据不同的数据量有不同的做法了。根据日期集合循环 2、根据日期创建新sheet，录制一个创建sheet的宏，放到根据步骤1的循环体里 3、复制前8行，到新sheet。这个可录制一段复制黏贴的宏，但是如果量大的话速度慢，而且还有activesheet的问题，稍微控制不好就会报错，建议用循环cell对象赋值的方式。 4、遍历数据源拷贝到不同的sheet里面去，还是建议用cell赋值的方式。当然这有两种做法，一是在步骤1的循环体里面遍历数据源，每次处理一个日期的sheet。这个逻辑比较简单，但是要多次遍历数据源。还有就是遍历一次数据源，根据日期字段分发到不同的sheet里面去，要记录好每个sheet的当前记录条数。

1、日期一般不定期，最少一个，最多差不多5个吧，就是第一列的，格式都一样，而且每个相同日期都是紧挨着的 2、能不能给个成品啊？自己的能力想做出来着实有点困难

[脆皮大雪糕]

引用 2 楼 Gerry_moming 的回复:

[quote=引用 1 楼 chewinggum 的回复:] 前一阵子还真帮老婆做过类似的宏。 其实录制几个宏再拼凑一下基本就OK了。 1、搞明白你的sheet里面到底有几个日期，这个根据不同的数据量有不同的做法了。根据日期集合循环 2、根据日期创建新sheet，录制一个创建sheet的宏，放到根据步骤1的循环体里 3、复制前8行，到新sheet。这个可录制一段复制黏贴的宏，但是如果量大的话速度慢，而且还有activesheet的问题，稍微控制不好就会报错，建议用循环cell对象赋值的方式。 4、遍历数据源拷贝到不同的sheet里面去，还是建议用cell赋值的方式。当然这有两种做法，一是在步骤1的循环体里面遍历数据源，每次处理一个日期的sheet。这个逻辑比较简单，但是要多次遍历数据源。还有就是遍历一次数据源，根据日期字段分发到不同的sheet里面去，要记录好每个sheet的当前记录条数。

1、日期一般不定期，最少一个，最多差不多5个吧，就是第一列的，格式都一样，而且每个相同日期都是紧挨着的 2、能不能给个成品啊？自己的能力想做出来着实有点困难[/quote] CSDN里一般是靠兴趣免费回答问题 但是如果你要别人为你付出劳动，你一般应该为此付费。

[赵4老师]

引用 3 楼 chewinggum 的回复:

[quote=引用 2 楼 Gerry_moming 的回复:] [quote=引用 1 楼 chewinggum 的回复:] 前一阵子还真帮老婆做过类似的宏。 其实录制几个宏再拼凑一下基本就OK了。 1、搞明白你的sheet里面到底有几个日期，这个根据不同的数据量有不同的做法了。根据日期集合循环 2、根据日期创建新sheet，录制一个创建sheet的宏，放到根据步骤1的循环体里 3、复制前8行，到新sheet。这个可录制一段复制黏贴的宏，但是如果量大的话速度慢，而且还有activesheet的问题，稍微控制不好就会报错，建议用循环cell对象赋值的方式。 4、遍历数据源拷贝到不同的sheet里面去，还是建议用cell赋值的方式。当然这有两种做法，一是在步骤1的循环体里面遍历数据源，每次处理一个日期的sheet。这个逻辑比较简单，但是要多次遍历数据源。还有就是遍历一次数据源，根据日期字段分发到不同的sheet里面去，要记录好每个sheet的当前记录条数。

1、日期一般不定期，最少一个，最多差不多5个吧，就是第一列的，格式都一样，而且每个相同日期都是紧挨着的 2、能不能给个成品啊？自己的能力想做出来着实有点困难[/quote] CSDN里一般是靠兴趣免费回答问题 但是如果你要别人为你付出劳动，你一般应该为此付费。[/quote] 有偿QQ远程帮实现，￥100。QQ红包或支付宝[e-mail]