表1(B5：F30)复制到表2 B5:B30，E5：E30,H5：H30 表2粘贴区域有规律比如隔6列或整数列，宏越简单越好
可以用函数实现。
假定原数据在SHEET1工作表的B:E列，请在SHEET2工作表的B2输入公式：
=IF(MOD(COLUMN(),6)=2,INDEX(SHEET1!$B:$E,ROW()-1,(COLUMN()+4)/6),"")
向右向下复制公式。追问
假定原数据在SHEET1工作表的B:E列，请在SHEET2工作表的B2输入公式：
=IF(MOD(COLUMN(),6)=2,INDEX(SHEET1!$B:$E,ROW()-1,(COLUMN()+4)/6),"")
向右向下复制公式。追问
想要用宏，数据太多卡呀！
温馨提示：答案为网友推荐，仅供参考
