[已解决][求助]跟随的难题···VBA求解

studystudy · 发表于 2009-10-23 13:42

··

又一个难题要向各位老师求解了

跟随提取
这个是相当于筛选的难题

比如我要统计第一位的3的跟随，即A行里的数据的第一位为3，看到加了红底的地方
A1,A4,A14,A20,A34.A50,A53,A54和A58，这些都是第一位为3的（也可以理解取为左边的第一位）
跟随：就是取第一位含有3的下一行数据。把这些数据都提取出来，然后把提取出来的数据放到工作表1，然后再把这些数据（工作表1里的数据）再进行次数统计并且按次数的多到少排序

取第一位含有3的下一行数据分别是：A2,A5,A15,A21,A35,A51,A54,A55，A59
即6531，2758，5525，1193，8826，5717，3434，0054，1546

同理：
第二位的，就把这些数据放到工作表2,然后再把这些数据（工作表1里的数据）再进行次数统计并且按次数的多到少排序;

第三位的，就把这些数据放到工作表3,然后再把这些数据（工作表1里的数据）再进行次数统计并且按次数的多到少排序；

第四位的，就把这些数据放到工作表4,然后再把这些数据（工作表1里的数据）再进行次数统计并且按次数的多到少排序

附件：请下载，万分感谢

8ZSv8sjQ.rar (2.28 KB, 下载次数: 2)

雨狐 · 发表于 2009-10-23 14:25

GKQACmVR.rar (9.46 KB, 下载次数: 35)

studystudy · 发表于 2009-10-23 15:31

先谢谢老师，然后再看附件··

studystudy · 发表于 2009-10-23 15:35

雨狐老师，工作表1，2，3，4的结果嘻嘻怎么 A1都空出一行了？

studystudy · 发表于 2009-10-23 15:44

例子里只说了取后一，要是取后二呢

代码里的这句，要怎么改呢

Sheets(k - 2).Cells(Sheets(k - 2).[a65536].End(3).Row + 1, 1) = Cells(i + 1, 1)

？

studystudy · 发表于 2009-10-23 23:07

咦，雨狐老师呢？

studystudy · 发表于 2009-10-24 11:01

老师们在忙什么呢？

爱疯 · 发表于 2009-10-24 12:40

如果数据源最后1个记录是3XXX呢？

雨狐 · 发表于 2009-10-24 13:30

QUOTE:

以下是引用studystudy在2009-10-23 15:35:00的发言：
雨狐老师，工作表1，2，3，4的结果嘻嘻怎么 A1都空出一行了？

A行空出是留出写标题的行[em04]（因为用的是最后非空行+一行造成的）

后面要二行或更多：

Sheets(k - 2).Cells(Sheets(k - 2).[a65536].End(3).Row + 1, 1).Resize(2, 1).Value = Cells(i + 1, 1).Resize(2, 1).Value

Hersheys · 发表于 2009-10-24 13:42

向雨狐老师学习[em17]

		自动登录	找回密码
密码			注册