作者brianjim (brianjim)
看板Office
标题[问题] 在Excel里合并散落在不同栏的资料
时间Thu Aug 16 00:01:54 2007
(若是和其他不同软体互动之问题 请记得一并填写)
您所使用的软体为: Excel
版本: 2003
问题:
有许多相同性质的资料,散落在不同的栏位里,每两栏为一组,
每一组的资料笔数都不同
A B C D E F
1 苹果 20 饼乾 15 葱 25
2 香蕉 30 牛奶 20 蒜 30
3 橘子 50 花生 25
4 果酱 40
5 麦片 50
6 软糖 10
7 蛋糕 50
想合并成如下的状况,应该怎麽做?
A B
1 苹果 20
2 香蕉 30
3 橘子 50
4 饼乾 15
… … …
12 蒜 30
试过录制巨集,但是没办法选到A栏的第一个空白储存格(例如一开始要选的A4),
只能选到最後一笔资料所在的位置(A3),
结果C1:D7贴上去的时候就会把A3:B3盖掉
不知道有什麽解决的办法?
附上我弄出来的巨集内容
Range("C1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A1").Select
Selection.End(xlDown).Select
←选到A栏最後一笔资料的位置
???
ActiveSheet.Paste
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.210.122
※ 编辑: brianjim 来自: 140.114.210.122 (08/16 00:52)
1F:推 twtimbow: ActiveCell.Offset(1).Select 08/16 12:19
2F:推 brianjim:可以了!非常感谢! 08/16 13:59