呕心沥血，终于发明出将工资表转换成两行工资条的‘单公式’，只需要一个公式！

zhangjimfu · 发表于 2011-2-19 13:12

Sub Macro1()
'
' Macro1 Macro
'

'
For i = 1 To 25 Step 1
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-2, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
ActiveSheet.Paste
ActiveCell.Select
Next i
End Sub

录制宏

595 · 发表于 2011-2-19 13:24

只能说这个公式太不给力了

鬼狐 · 发表于 2011-2-19 13:55

=IF(COLUMN()>18,"",INDEX(Sheet1!$A$1:$AJ$30,IF(MOD(ROW(),2),1,INT((ROW()-1)/4)+2),(MOD(ROW()-1,4)+1>2)*18+COLUMN()))
发言，纯粹是为了早日刷到高级好能送鲜花
另外，向9楼学习

guojianlin1985 · 发表于 2011-2-19 14:01

做个记号，再来学习。

longyongchong · 发表于 2011-2-19 14:38

方法一：以sheet2表为数据表来演示，在工资条表中输入=IF(MOD(ROW(),2)=1,Sheet2!$1:$1,OFFSET(Sheet2!$1:$1,ROW()/2,,,))，复制到相应的单元格即可；
方法二：仍以sheet2表为数据表来演示，在工资条二表中输入=INDEX(Sheet3!$1:$200,(MOD(ROW(),2)=1)*1+(MOD(ROW(),2)=0)*(1+ROW()/2),COLUMN())，复制到相应的单元格也可达到相应的效果。
详见附件。

一指禅 · 发表于 2011-2-19 15:24

谢谢，学习

冬天的风 · 发表于 2011-2-19 15:50

挺好的，花了很大心血，谢谢共享！

shootscreen · 发表于 2011-2-19 19:37

向各位高手致敬！

小妖儿咬咬 · 发表于 2011-2-19 19:54

您看看能用吗？

ZHXF894 · 发表于 2011-2-19 22:48

借助于交叉点的支持，两行工资条加一空行终于整出来了，再次对交叉点表示谢谢！

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

[原创] 呕心沥血，终于发明出将工资表转换成两行工资条的‘单公式’，只需要一个公式！

我感觉你这个弄得太复杂了，其实可以这样的。

这是两天前心电感应老师交给我的