谢谢大哥!!!我明天开电脑试试行不行!!!!
追答呵呵,我试过的,只要你会拖拉公式就可以的!
没仔细看,中间还有一个空行,用这个
=OFFSET($A$1,MOD(ROW(A1)-1,3)+(COLUMN(A1)-1)*4,INT((ROW(A1)-1)/2))
空行会为0
=OFFSET($A$1,MOD(ROW(A1)-1,3)+(COLUMN(A1)-1)*4,INT((ROW(A1)-1)/2))&""
数据会成文本
=IF(OFFSET($A$1,MOD(ROW(A1)-1,3)+(COLUMN(A1)-1)*4,INT((ROW(A1)-1)/2))="","",OFFSET($A$1,MOD(ROW(A1)-1,3)+(COLUMN(A1)-1)*4,INT((ROW(A1)-1)/2)))
这个很好,可是,公式有点长
选一个吧。
大神!可以加你企鹅吗!我的问题其实比较复杂,这个是举了个简单的例子而已。。拜托了T__T
追答可以,看 我 资 料,里面有。
本回答被提问者采纳我只有那么多了。。。我也想悬赏多些。。可是我是新手。。。T__T求大神帮忙
追答Alt+F11打开VBA编辑器,在下图中位置点右键“插入模块”
在右侧代码编辑区域粘贴代码:
粘贴好后按F5运行。
程序定义为:原数据在工作簿左起第1张工作表,结果放在第2张工作表。
Sub t()已测试,结果与您发的图完全一致。
如果有帮助,请采纳哟~
追问大神!!!我这个举例其实举得有点不妥.....因为我实际上是有3行空格,请问修改代码中的哪个位置呢?
这个是我实际要做的......一共有24~34组数据,每组有六列,有18个这样的表格...............
先把一个表的处理过程写出来,然后剩下的工作就是遍历工作表了。
把上面代码中的*3改为*5,把 - 2 改为 - 4 。试试吧。