第三期【每周一测】答题秀 第四题工资清单变工资条

展翅

为方便大家讨论和分享，【每周一测】里的每一题，都发一主题帖供大家跟帖交流。 欢迎各位跟帖分享奇招妙想。论坛会根据答题内容给予一定的币币或经验奖励。 第三期链接地址：http://www.excelpx.com/thread-304198-1-1.html 第四题：工资清单变工资条。您的答案是什么？

huangcaiguang

我用了辅助序列、定位、查找

h16503

=IF(MOD(ROW(),3)=1,"",IF(MOD(ROW(),3)=2,A$17,INDEX($A$17:$E$27,INT((ROW())/3)-4,COLUMN()-7))))
:P
复制A17:E18格式到H17:L18，选中H17:L19往下拖。

风云2013

此题目的方法有多种，我曾经在wps官方论坛上出了一个关于隔行插入的方法，用工资条在而excel表格中技巧有3种，函数有2种，只是不知道可以在这里提及到wps官方论坛的帖子地址吗？

kuangben8

本体的公式法：我在M17单元格输入的，右拉下拉。
=CHOOSE(MOD(ROW()-2,3)+1,A$17,OFFSET(A$17,INT(ROW()/3)-5,),"")

基础操作法：

尛ぃ謉

公式我也玩一个好了

1. =IF(ROW(A1)>COUNTA($A$18:$A$27)*3,"",OFFSET(A$16,(ROW(A5)/3)^(MOD(ROW(A3),3)^2),)&"")

复制代码

03版本的10几行还是可以玩的

美斯特邦威

1. =IF(MOD(ROW(A1),3)=1,A$17,IF(MOD(ROW(A1),3)=2,INDEX(A$17:A$27,ROUNDUP(ROW(A4)/3,)),""))

复制代码

美斯特邦威

1. Sub abc()
   
2. m = 17
   
3. n = 18
   
4. For i = 17 To 26
   
5. Cells(17, 1).Resize(1, 5).Copy Cells(m, "n").Resize(1, 5)
   
6. m = m + 3
   
7. Cells(i + 1, 1).Resize(1, 5).Copy Cells(n, "n").Resize(1, 5)
   
8. n = n + 3
   
9. Next i
   
10. End Sub
    

复制代码

就是我

排序法1.在第18行前插入9行（人数-1），将标题行填充这9行
          2.辅助列A:在A17:A26依次输入1,2，....10，A27:A36中依次输入1.1,2.1，...10.1，   在A37:A46中依次输入
             1.2,2.2，...10.2，然后按Al列排序即可              

水吉果果

用到辅助列、定位空值、定位常量-文本