ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 101|回复: 10

想转换数据的格式,想不到思路

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-5-18 23:53 | 显示全部楼层 |阅读模式
我想把其它部门提供给我的数据转换便利查询汇总和的格式,但是我自己感觉原始数据好像有点规律又不太规范,而且我没有办法改变他的提供,求老师看能不能完成一键改变。

转换.rar

6.42 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2017-5-19 00:04 | 显示全部楼层
这不很有规律吗,每4列一组数据,每组数据从6到24行

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 00:08 | 显示全部楼层
是呀,感觉就有这规律,但是不懂怎么转换,麻烦小花鹿帮我

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 00:09 | 显示全部楼层
但是还有一个可能他变成25行26行也说不定,只是暂时经常24行

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 00:19 | 显示全部楼层
想了想,还有一个问题呀,肥料ABC是我取的名字,他不是这个名字的,有时这顺序不同,所以保险还要考虑这四列一组上面的名字也引用。

TA的精华主题

TA的得分主题

发表于 2017-5-19 00:57 | 显示全部楼层
应该是这样吧

转换.7z (11.06 KB, 下载次数: 2)

TA的精华主题

TA的得分主题

发表于 2017-5-19 08:32 | 显示全部楼层
  1. Sub cdsr()
  2.     Dim arr, brr(1 To 65535, 1 To 4)
  3.     arr = Sheet1.UsedRange
  4.     For j = 1 To UBound(arr, 2) Step 4
  5.         For i = 5 To UBound(arr) - 1
  6.                 k = k + 1
  7.                 brr(k, 1) = arr(3, j + 1)
  8.                 brr(k, 2) = arr(i, j)
  9.                 brr(k, 3) = arr(i, j + 1)
  10.         Next
  11.     Next
  12.     Sheet2.[g2:j65535] = ""
  13.     Sheet2.[g2].Resize(k, 4) = brr
  14. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2017-5-19 08:33 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 14:13 | 显示全部楼层
谢谢yeminqiang,就是需要这样。只能又直接白拿劳动成果了。请问一下,For j = 1 To UBound(arr, 2) Step 4这一句中,设定J是一个1到一个数组中步长为4的数值,ARR是已使用区域,那么UBound(arr, 2) 又是什么意思呢

TA的精华主题

TA的得分主题

发表于 2017-5-19 14:37 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

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

GMT+8, 2017-9-24 11:11 , Processed in 0.104264 second(s), 27 queries , Gzip On, MemCache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

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

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

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