excel实现一个小功能

miloservic

请教如何将左图中的数据迅速转换为右图中的样子
                                         

附件我已经上传，将temp表的数据 转化为sheet1表里面的格式 工作簿1.7z (14.08 KB, 下载次数: 4)

2014-9-17 17:13 上传

点击文件名下载附件

jyhxr

楼主的问题感觉要用VBA解决比较切合实际

jacky1998

工作簿1.rar (25.37 KB, 下载次数: 11)

2014-9-17 19:52 上传

点击文件名下载附件

1. 
   
2. a2=MID(INDEX(temp!A:A,SMALL(IF(TEXT(TRIM(temp!$A$1:$A$500),)<>"",ROW($1:$500),600),ROW($1:$500))),15,99)
   
3. b2:d2=VLOOKUP("*"&SUBSTITUTE(B$1,"初赔",)&"*",OFFSET(temp!$B$1,MATCH("*"&$A2,temp!$A:$A,)-1,,TEXT(MATCH("*"&$A3,temp!$A:$A,)-MATCH("*"&$A2,temp!$A:$A,),"
   
4. [>];!1!6"),4),COLUMN($B:$D),)
   
5. b2:d2=VLOOKUP("*"&SUBSTITUTE(B$1,"初赔",)&"*",OFFSET(temp!$B$1,MATCH("*"&$A12,temp!$A:$A,)-1,,16,4),COLUMN($B:$D),)
   
6. e2=""
   

复制代码

选择B2:E2右拉下拉

miloservic

jacky1998 发表于 2014-9-17 19:48
选择B2:E2右拉下拉

谢谢，这个思路非常棒

miloservic

jacky1998 发表于 2014-9-17 19:48
选择B2:E2右拉下拉

不好意思 还要请教一下，第三句那个公式是干嘛的？
我看第二句就可以实现我要的功能，不知道第三句是干嘛用的。
而且第二句和第三句 都在b2:d2单元格，难道两者是替换关系？

jacky1998

miloservic 发表于 2014-9-18 12:51
不好意思 还要请教一下，第三句那个公式是干嘛的？
我看第二句就可以实现我要的功能，不知道第三句是干嘛 ...

如果你的原列中每组确定是16行，就可用那个短的，可以不确定，就用长的那个。
E2不用输入什么东东，但需选择B2:E2四个单元格右拉下拉。

miloservic

jacky1998 发表于 2014-9-18 12:56
如果你的原列中每组确定是16行，就可用那个短的，可以不确定，就用长的那个。
E2不用输入什么东东，但需 ...

原来是长短之分，谢谢您 再次感谢您的指导