设为首页收藏本站
切换到窄版

 找回密码
 注册
快捷导航
专门网»论坛 › 其他版块 › 系统与软件区 › 【请教】请教格EXCEL转置问题（已解决，不用宏和VBA） ...
返回列表 发新帖
查看: 3722|回复: 25

【请教】请教格EXCEL转置问题（已解决，不用宏和VBA）

[复制链接] |自动提醒
阅读字号:
  • 大
  • 中
  • 小
river_s

1万

回帖

99

积分

2万

资产值

荣誉版主 Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2005-8-10
银牌荣誉勋章(注册10年以上会员)
发表于 2008-4-14 16:25:43| 字数 145| - 中国–北京–北京 鹏博士BGP | 显示全部楼层 |阅读模式
是一个通讯录，内容是这样排列的

其中每四行是一个人的地址信息，现在想把上面这种给转换成

以便再设法导入到Outlook里面，可是不知道用什么方法
试过转置，可是只能4行4行的转置，不能一起弄，我这文件一共五六千行呢……
有没有高手？

[ Edited by  river_s on 2008-4-14 18:41 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
河神爷RS
回复 支持 反对

使用道具 举报

lzg717

44

回帖

0

积分

1892

资产值

入门会员 Rank: 1

注册时间
2007-4-16
发表于 2008-4-14 16:56:44| 字数 17| - 中国–上海–上海 电信 | 显示全部楼层
老师教过，俺忘记了。好像是要做个宏
回复 支持 反对

使用道具 举报

bush-911 - 助理站长

6万

回帖

679

积分

17万

资产值

天下无敌I Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2007-5-15
银牌荣誉勋章(注册10年以上会员)年全勤勋章2022铜牌荣誉勋章(注册8年以上会员)月全勤勋章年全勤勋章2023年全勤勋章2024
发表于 2008-4-14 17:06:14| 字数 32| - 中国–广东–深圳 电信 | 显示全部楼层
用了N年office了到现在还不知道宏是干什么的 ，只是听说很强大
学学老山东，看看老站长
回复 支持 反对

使用道具 举报

river_s

1万

回帖

99

积分

2万

资产值

荣誉版主 Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2005-8-10
银牌荣誉勋章(注册10年以上会员)
 楼主| 发表于 2008-4-14 17:07:37| 字数 12| - 中国–北京–北京 鹏博士BGP | 显示全部楼层
看来这问题还挺复杂的……
河神爷RS
回复 支持 反对

使用道具 举报

Drifter

9万

回帖

603

积分

21万

资产值

天下无敌I Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2004-6-23
发表于 2008-4-14 17:09:16| 字数 34| - 中国–香港 电讯盈科有限公司 | 显示全部楼层
用宏最方便.

宏就是把手工做过一遍的东西记录下来, 然后重复N多次...
回复 支持 反对

使用道具 举报

Drifter

9万

回帖

603

积分

21万

资产值

天下无敌I Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2004-6-23
发表于 2008-4-14 17:11:48| 字数 29| - 中国–香港 电讯盈科有限公司 | 显示全部楼层
当然, 高手都用VBA, 会用的就容易, 重新学起来就太麻烦了.
回复 支持 反对

使用道具 举报

冰蓝

912

回帖

39

积分

2150

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2003-2-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-4-14 17:14:57| 字数 20| - 中国–江苏–镇江 电信 | 显示全部楼层
偶C#用久了,待偶复习一下vba先...
X220 i7/8G/160G SSD/IPS/WWAN.
IPHONE 4S 64G.
回复 支持 反对

使用道具 举报

ananstarlit

667

回帖

52

积分

8万

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2006-7-7
银牌荣誉勋章(注册10年以上会员)铜牌荣誉勋章(注册8年以上会员)月全勤勋章
发表于 2008-4-14 17:32:27| 字数 67| - 中国–北京–北京 国研网 | 显示全部楼层
这个问题不是很难吧，我觉得如果自己不会VBA或者是会一点儿的话，还不如不用VBA来解决这个问题呢，感觉不是很难啊。
你看看附件中的行不？

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

冰蓝

912

回帖

39

积分

2150

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2003-2-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-4-14 17:55:55| 字数 100| - 中国–江苏–镇江 电信 | 显示全部楼层
请查看附件,如果有安全性提示请将"宏"-"安全性"-设置为"低".我做的这个是循环1-1200行.如果要加的话,改按钮里面那个i参数就行的.

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
X220 i7/8G/160G SSD/IPS/WWAN.
IPHONE 4S 64G.
回复 支持 反对

使用道具 举报

冰蓝

912

回帖

39

积分

2150

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2003-2-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-4-14 18:03:07| 字数 34| - 中国–江苏–镇江 电信 | 显示全部楼层
如图,如果人很多的话for i=1 to 1200把1200改大一些就成.

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
X220 i7/8G/160G SSD/IPS/WWAN.
IPHONE 4S 64G.
回复 支持 反对

使用道具 举报

ffpp

543

回帖

0

积分

1646

资产值

入门会员 Rank: 1

注册时间
2004-9-13
发表于 2008-4-14 18:05:11| 字数 122| - 中国–广东–江门 电信 | 显示全部楼层
不用宏的话，假设你的数据在sheet1的A列1-6000行

你在shee2中A1输入如下，然后向右拉到D列，在选中A1到D1，向下拉应该就可以了。

=INDEX(Sheet1!$A$1:$A$6000,(ROW()-1)*4+COLUMN(),1)
回复 支持 反对

使用道具 举报

Drifter

9万

回帖

603

积分

21万

资产值

天下无敌I Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2004-6-23
发表于 2008-4-14 18:30:30| 字数 91| - 中国–香港 电讯盈科有限公司 | 显示全部楼层
QUOTE:
Posted by 冰蓝 on 2008-4-14 18:03
如图,如果人很多的话for i=1 to 1200把1200改大一些就成.
543441
543442



VBGA写好后怎么执行呢?
回复 支持 反对

使用道具 举报

冰蓝

912

回帖

39

积分

2150

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2003-2-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-4-14 18:33:19| 字数 124| - 中国–江苏–镇江 电信 | 显示全部楼层
先进入设计模式,点"视图","工具栏","控件工具箱",然后点那个三角板图标,进入设计模式,然后双击按钮,出现一个工程窗口,如图2所示,修改I,保存,退出设计模式.再单击那个按钮,就行了.
X220 i7/8G/160G SSD/IPS/WWAN.
IPHONE 4S 64G.
回复 支持 反对

使用道具 举报

river_s

1万

回帖

99

积分

2万

资产值

荣誉版主 Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2005-8-10
银牌荣誉勋章(注册10年以上会员)
 楼主| 发表于 2008-4-14 18:39:59| 字数 290| - 中国–北京–北京 鹏博士BGP | 显示全部楼层
琢磨了半天，终于搞定，插个新表，然后横向4个格子分别用以下公式：
=INDIRECT("转置前!A"&(ROW()-1)*4+1)
=INDIRECT("转置前!A"&(ROW()-1)*4+2)
=INDIRECT("转置前!A"&(ROW()-1)*4+3)
=INDIRECT("转置前!A"&(ROW()-1)*4+4)
然后就往下拖……这个对文字保证有效，头昏眼花，下班去也……
多谢楼上的兄弟们，送花啦

[ Edited by  river_s on 2008-4-14 18:41 ]
河神爷RS
回复 支持 反对

使用道具 举报

ananstarlit

667

回帖

52

积分

8万

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2006-7-7
银牌荣誉勋章(注册10年以上会员)铜牌荣誉勋章(注册8年以上会员)月全勤勋章
发表于 2008-4-14 19:10:45| 字数 260| - 中国–北京–北京 电信/IDC机房 | 显示全部楼层
QUOTE:
Posted by river_s on 2008-4-14 18:39
琢磨了半天，终于搞定，插个新表，然后横向4个格子分别用以下公式：
=INDIRECT("转置前!A"&(ROW()-1)*4+1)
=INDIRECT("转置前!A"&(ROW()-1)*4+2)
=INDIRECT("转置前!A"&(ROW()-1)*4+3)
=INDIRECT("转置前!A ...


已经搞定了，我就不加你QQ了。再说我的那个方法也是笨方法。
回复 支持 反对

使用道具 举报

Drifter

9万

回帖

603

积分

21万

资产值

天下无敌I Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

注册时间
2004-6-23
发表于 2008-4-14 20:24:58| 字数 7| - 中国–广东–深圳 天威有线宽带(关内) | 显示全部楼层
高, 实在是高.
回复 支持 反对

使用道具 举报

cjls2000

5

回帖

0

积分

15

资产值

入门会员 Rank: 1

注册时间
2008-5-29
发表于 2008-5-29 16:04:40| 字数 20| - 中国–上海–上海–松江区 电信 | 显示全部楼层
求反过来操作  的代码    就是每4个转到同1列上
回复 支持 反对

使用道具 举报

cjls2000

5

回帖

0

积分

15

资产值

入门会员 Rank: 1

注册时间
2008-5-29
发表于 2008-5-29 16:22:24| 字数 8| - 中国–上海–上海–松江区 电信 | 显示全部楼层
有人愿意帮忙吗？
回复 支持 反对

使用道具 举报

cjls2000

5

回帖

0

积分

15

资产值

入门会员 Rank: 1

注册时间
2008-5-29
发表于 2008-5-29 16:38:15| 字数 8| - 中国–上海–上海–松江区 电信 | 显示全部楼层
有人愿意帮忙吗？
回复 支持 反对

使用道具 举报

mytemp

669

回帖

52

积分

2475

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2005-8-24
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-5-29 16:48:34| 字数 41| - 中国–广东–深圳 电信 | 显示全部楼层
是要行列互换吗?这个更简单了,直接复制,新工作表中右键,选择性粘贴,选中转置,OK
回复 支持 反对

使用道具 举报

cjls2000

5

回帖

0

积分

15

资产值

入门会员 Rank: 1

注册时间
2008-5-29
发表于 2008-5-29 16:50:58| 字数 35| - 中国–上海–上海–松江区 电信 | 显示全部楼层
不是
是 1 2 3  4
    5 6 7  8
    9 10 11 12
变成以列
1
2
3
4
5
6
7
8
9
.
.
.
.
回复 支持 反对

使用道具 举报

cjls2000

5

回帖

0

积分

15

资产值

入门会员 Rank: 1

注册时间
2008-5-29
发表于 2008-5-30 05:49:05| 字数 160| - 中国–上海–上海–松江区 电信 | 显示全部楼层
Online
Posts 4
Credit 0
Assets 14 nb
Read Permission 10
Registered 2008-5-29
# 19 Post on 2008-5-29 16:38  View Profile  P.M. Buddy  Quote  Edit  Reply  Report Thread flower  Show the Author  
   有人愿意帮忙吗？
回复 支持 反对

使用道具 举报

7_up

267

回帖

2

积分

131

资产值

初级会员 Rank: 1

注册时间
2003-3-25
铜牌荣誉勋章(注册8年以上会员)
发表于 2008-5-30 09:53:46| 字数 16| - LAN | 显示全部楼层
这活儿一般用Minitab完成。
回复 支持 反对

使用道具 举报

antonioni

28

回帖

0

积分

34

资产值

入门会员 Rank: 1

注册时间
2006-8-8
发表于 2008-5-30 14:40:25| 字数 5| - 中国–广东–广州 移动 | 显示全部楼层
记号！真好
回复 支持 反对

使用道具 举报

shh_czh9

127

回帖

0

积分

280

资产值

入门会员 Rank: 1

注册时间
2006-8-10
发表于 2008-6-5 15:23:04| 字数 266| - 中国–上海–上海 电信 | 显示全部楼层
琢磨了一下，用以下公式可以解决
=INDIRECT((IF(RIGHTB((ROW()/4)*100,2)="25","A",IF(RIGHTB((ROW()/4)*100,2)="50","B",IF(RIGHTB((ROW()/4)*100,2)="75","C","D"))))&(IF(INT(ROW()/4)=ROW()/4,ROW()/4,INT(ROW()/4)+1)))

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

shh_czh9

127

回帖

0

积分

280

资产值

入门会员 Rank: 1

注册时间
2006-8-10
发表于 2008-6-5 15:25:45| 字数 8| - 中国–上海–上海 电信 | 显示全部楼层
上述是回答21楼
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Powered by Discuz! X3.5 © 2001-2023 Comsenz Inc

GMT+8, 2025-2-13 01:04 , Processed in 0.187969 second(s), 63 queries , Gzip On, OPcache On.

手机版|小黑屋|安卓客户端|iOS客户端|Archiver|备用网址1|备用网址2|在线留言|专门网

返回顶部