将原数据按照新格式重新排列

syhhh888 · 发表于 2010-2-27 12:33

各位老师：
      学生在此向大家请教个问题，如题

例：E/F列的数据时这样排列的
姓名          联系方式
小舟          1333333333
小王          1322222222
小李          1355588146
如何在A/B列中排成如下格式：
姓名    小舟
联系方式 1333333333

姓名       小王
联系方式 1322222222

详情见附件。将E/F列的数据，按照A/B的格式粘贴过去，数据好多，手工做的话太慢，烦请各位老师帮忙，谢谢大家了（在线等解答）

LangQueS · 发表于 2010-2-27 12:52

★使用有效性信息配合引用数据★ http://club.excelhome.net/thread-502238-1-1.html

张姗姗 · 发表于 2010-2-27 13:03

姓名黎奉友
联系方式 73575557355

姓名陈伟业
联系方式 73557577558

姓名尚祚成
联系方式 73857473408

姓名朱伊红
联系方式 73857633637

姓名黄锦云
联系方式 75552056735

姓名朱昌明
联系方式 73873045503

姓名尚永良
联系方式 73573357770

姓名吴文其
联系方式 73747650850

姓名乔石
联系方式 75557074442

姓名陈庆双
联系方式 73776407752

姓名程永宁
联系方式 73776577687

姓名王康
联系方式 73873045875

姓名马文龙
联系方式 75550557832

姓名马静
联系方式 73770586030

姓名赵世界
联系方式 73575540370

姓名薛磊
联系方式 75767466730

姓名孙超
联系方式 73307552825

姓名黄建
联系方式 75550554837

姓名林龙
联系方式 73574773706

姓名尹军民
联系方式 75857854775

姓名陈德龙
联系方式 73585720775

姓名王静
联系方式 73627586067

姓名王路
联系方式 75057837242

姓名陈能花
联系方式 75857875336

姓名侯云兰
联系方式 73573557376

姓名陈诚
联系方式 73776547402

姓名赵羽航
联系方式 73557080778

姓名番匠賢志
联系方式 75850620887

姓名乔海龙
联系方式 73627588860

姓名唐  燕
联系方式 73627588557

姓名王丽丽
联系方式 73857685380

姓名金  陵
联系方式 75852546465

姓名王  燕
联系方式 73557680270

姓名马  玲
联系方式 73857878704

姓名张峻辉
联系方式 73873388776

姓名杜成刚
联系方式 73552024745

姓名杨  静
联系方式 73236527685

姓名任玉萍
联系方式 75850655544

姓名周益韡
联系方式 73574487307

姓名裴广千
联系方式 73557647724

姓名卓秋银
联系方式 73627557554

姓名卢  榛
联系方式 73857842504

姓名陈影华
联系方式 73873525754

姓名杨梅宁
联系方式 73573832657

姓名荣萩玥
联系方式 73626705707

姓名高  文
联系方式 73557563053

姓名管玲玲
联系方式 73776560754

姓名甘纪安
联系方式 75550530373

姓名赵  艳
联系方式 75852575724

姓名刘乔平
联系方式 73557545577

姓名吴  玮
联系方式 75557820705

姓名荣  欢
联系方式 73770576836

姓名毛德寿
联系方式 73627588677

姓名周  炜
联系方式 73573525227

姓名吕定国
联系方式 75270046635

姓名王永峰
联系方式 73627586532

姓名姜徐娜
联系方式 73573544760

姓名方  鑫
联系方式 75850777775

姓名张  铎
联系方式 73874705007

姓名王贵兵
联系方式 75557726250

姓名丁强亲
联系方式 73874725587

姓名徐晓亮
联系方式 73573077835

姓名凌华荣
联系方式 75852545453

姓名周  鸿
联系方式 73627588848

cflood · 发表于 2010-2-27 13:04

Sub a()
arr = Range("E2:F" & Range("E65536").End(xlUp).Row)
Range("A2").Activate
For i = 1 To UBound(arr)
ActiveCell.Resize(2, 1) = Application.WorksheetFunction.Transpose(Range("E1:F1"))
ActiveCell.Resize(2, 1).Offset(0, 1) = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Index(arr, i))
ActiveCell.Offset(3, 0).Activate
Next i
End Sub

syhhh888 · 发表于 2010-2-27 13:20

感谢，又学了一招

syhhh888 · 发表于 2010-2-27 13:22

感谢，这种方法很好，只是在处理大量数据的时候，操作的步骤比较多
我主要是想形成一个模板，以后就简单了，谢谢！

syhhh888 · 发表于 2010-2-27 13:28

好东西啊，不过我的基础太差，看的不是很懂

再请教下，如果后面再加一列办公电话的数据在A/B列如何把她自动加进去呢？

例如：
E                   F                      G
姓名    联系电话    办公电话
黎奉友  1333333333    0527-85222829

如果G列中有数值，就转化成格式如下
A                         B
姓名       黎奉友
联系电话  1333333333
办公电话  0527-85222829

如果办公电话为空就还是出现原来的格式，应该怎么写代码呢？

非常感谢老师的指导！

cflood · 发表于 2010-2-27 14:14

Sub a()
arr = Range("E2:G" & Range("E65536").End(xlUp).Row)
Range("A2").Activate
For i = 1 To UBound(arr)
ActiveCell.Resize(3, 1) = Application.WorksheetFunction.Transpose(Range("E1:G1"))
ActiveCell.Resize(3, 1).Offset(0, 1) = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Index(arr, i))
ActiveCell.Offset(4, 0).Activate
Next i
End Sub

syhhh888 · 发表于 2010-2-27 14:18

谢谢老师，还有个小问题想请教下老师

我把A/B列复制到记事本中以后，EXCEL中的空行会显示成一个长的空格，请问怎么样处理，才能把那个空格去掉呢？
在EXCEL中

syhhh888 · 发表于 2010-2-27 14:44

版主，请问能帮我解答下这个问题吗？

我把A/B列复制到记事本中以后，EXCEL中的空行会显示成一个长的空格，请问怎么样处理，才能把那个空格去掉呢？
在EXCEL中

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

[2007] 将原数据按照新格式重新排列

看看是不是这样的

回复 2楼 LangQueS 的帖子

回复 3楼张姗姗的帖子

回复 4楼 cflood 的帖子

回复 8楼 cflood 的帖子

回复 2楼 LangQueS 的帖子

[2007] 将原数据按照新格式重新排列

看看 是不是这样的

回复 2楼 LangQueS 的帖子

回复 3楼 张姗姗 的帖子

回复 4楼 cflood 的帖子

回复 8楼 cflood 的帖子

回复 2楼 LangQueS 的帖子

看看是不是这样的

回复 3楼张姗姗的帖子