[已解决]希望固定5个1组排列

jrsz

A表里有苹果，结子，梨子，橙子，。。。。。。100多个水果

我现在B表要做



在B表如何快速实现这样的效果，5个一组！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-30 15:34

跳转到最佳答案楼层

hwc2ycy

用技巧嘛。

hwc2ycy

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
4.         Rows(i).Copy
   
5.         Rows(i + 1).Resize(4).Insert
   
6.     Next
   
7.     Application.ScreenUpdating = True
   
8.     Application.CutCopyMode = False
   
9. End Sub

复制代码

hwc2ycy

jrsz

hwc2ycy 发表于 2013-1-30 14:54

额，大哥能不能来点简单点的？这个有点复杂啊，VBA那个页面在哪打开啊，，以前没用过呢

jrsz

还有动态图片是怎么搞的我也想学嘿嘿

hwc2ycy

alt+f11

hwc2ycy

录相是gif gif gif软件，论坛有下的。

hwc2ycy

用函数法。

1. =INDEX(A:A,INT((ROW()+4)/5))

复制代码

hwc2ycy