ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2271|回复: 10

[求助] 关于批量转置transpose的应用

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-3-19 08:29 | 显示全部楼层 |阅读模式
大家好,在坛里搜索好久没有能找到答案。
把问题贴上来向大家求助了。
因为系统原因,导出来的数据左边是竖的,想要用transpose来实际转置。
如果只是一两行也挺简单的,但数据有好几万行,不知道怎么办才好。
有没有办法可以用下拉的方式,就能够自动完成的呢? 关于transpose的使用.rar (6.51 KB, 下载次数: 24)

TA的精华主题

TA的得分主题

发表于 2013-3-19 08:40 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-19 08:45 | 显示全部楼层
jyhxr 发表于 2013-3-19 08:40
几万行?
到VBA板块求助吧...

谢谢。我这就去。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-19 08:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
版主,真不好意思。刚才跑去那里又开了个帖子。
亲看关哪个合适,就关掉吧。抱歉了。 {:soso_e113:}

TA的精华主题

TA的得分主题

发表于 2013-3-19 09:01 | 显示全部楼层
  1. =INDIRECT("r"&4*ROW(A1)+COLUMN(A1)-3&"c1",)
复制代码
右拉拉,下拉拉

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-19 09:09 | 显示全部楼层
zheng_0925 发表于 2013-3-19 09:01
右拉拉,下拉拉

哇塞,真是可以的呢。
只是还要再做试验,因为真实数据的行数不太一样。感谢感谢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-3-19 09:19 | 显示全部楼层
zheng_0925 发表于 2013-3-19 09:01
右拉拉,下拉拉

另外,可不可以帮忙解释一下,这是什么意思呢?
因为我的间距不一样,试验出来的效果都不行。

TA的精华主题

TA的得分主题

发表于 2013-3-19 09:41 | 显示全部楼层
  1. Sub lqxs()
  2. Dim Arr, i&, Myr&, Brr, r%, Arr1(), ks, js, j&, n&, c%
  3. Sheet1.Activate
  4. [c2:e20000].ClearContents
  5. Myr = [a65536].End(xlUp).Row
  6. Arr = Range("a2:a" & Myr)
  7. ReDim Brr(1 To UBound(Arr), 1 To 3)
  8. For i = 1 To UBound(Arr)
  9.     If Left(Arr(i, 1), 2) = "名字" Then
  10.         r = r + 1
  11.         ReDim Preserve Arr1(1 To r)
  12.         Arr1(r) = i
  13.     End If
  14. Next
  15. For i = 1 To r
  16.     If i <> r Then
  17.         js = Arr1(i + 1) - 1
  18.     Else
  19.         js = UBound(Arr)
  20.     End If
  21.     ks = Arr1(i)
  22.     n = n + 1: c = 0
  23.     For j = ks To js
  24.         If Arr(j, 1) <> "" Then
  25.             c = c + 1
  26.             Brr(n, c) = Arr(j, 1)
  27.         End If
  28.     Next
  29. Next
  30. [c2].Resize(n, 3) = Brr
  31. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2013-3-19 09:43 | 显示全部楼层
点击按钮即可。请见附件。

关于transpose的使用0319.rar

14.94 KB, 下载次数: 31

TA的精华主题

TA的得分主题

发表于 2013-3-19 09:58 | 显示全部楼层
sumson 发表于 2013-3-19 09:19
另外,可不可以帮忙解释一下,这是什么意思呢?
因为我的间距不一样,试验出来的效果都不行。

若是间距不一样,建议你分两步
1.F5定位,删除所有空行
2.之后用公式 =INDIRECT("r"&3*ROW(A1)+COLUMN(A1)-2&"c1",)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 02:08 , Processed in 0.046655 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表