ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 怎么实现数据变动情况下多列合并1列,

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-11-23 10:27 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
怎么实现数据变动情况下多列合并1列,,(将记录表格黄色部分,1车道,2车道,3车道,4车道,5车道,6车道,合并成1列,11、22、33、44、55、66、,,,车道数和检测点数随数据调整而变动),(要 实现的效果随车道数,检测点数蓝色部分,的改变而改变,实现多列合并1列)不甚感激,

多列合并1列.rar

359.31 KB, 下载次数: 7

TA的精华主题

TA的得分主题

发表于 2014-11-23 11:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
您的数据太多了,这样通过数组公式运行比较慢。同时您的单元格合并现象很明显,这样后期数据处理带来很大的麻烦。
我提供一个附件给您的方法,您自己的原始数据还待优化。

工作簿.zip

10.82 KB, 下载次数: 8

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-23 17:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
dengjq2000 发表于 2014-11-23 11:39
您的数据太多了,这样通过数组公式运行比较慢。同时您的单元格合并现象很明显,这样后期数据处理带来很大的 ...

谢谢您,dengjq200老师,我要的结果是1列完了在接着第二列,以此类推,吧六列合并,offset函数可以实现可是不能去掉空值,附件我在传上,请老师帮以解决,

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-23 18:00 | 显示全部楼层
比如每列的个数不一样,怎么吧空值去掉

工作簿.zip

12.83 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2014-11-23 19:08 | 显示全部楼层
南云6 发表于 2014-11-23 18:00
比如每列的个数不一样,怎么吧空值去掉

您那公式是实现不了的!不是L列可以满足您的条件了嘛?

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-24 09:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
dengjq2000 发表于 2014-11-23 19:08
您那公式是实现不了的!不是L列可以满足您的条件了嘛?

恩,再次感谢您,dengjq2000老师,您为我编写的公式能实现所要的效果,我是要实现,1列完了接上第2列然后第3列,以此类推,实现合并一列的效果,就好比N字顺序。。。(请l老师调成N顺序,而不是Z顺序,我现在还不能您的公式,谢谢)

TA的精华主题

TA的得分主题

发表于 2014-11-24 21:44 | 显示全部楼层
具体M列的数值,单元格M2数组公式:
  1. =INDIRECT(TEXT(MOD(MIN(IF((COUNTIF(M$1:M1,C$2:H$30)=0)*(TRIM(C$2:H$30)<>""),ROW($2:$30)/1%+{3,4,5,6,7,8}*10001,99999)),10^4),"r0c00"),)&""
复制代码
往下拉

工作簿.zip

14.63 KB, 下载次数: 1

TA的精华主题

TA的得分主题

发表于 2014-11-24 22:13 | 显示全部楼层
7楼数组公式好像有点不对,删除了重复项了,您用此数组公式(具体见N列,N2数组公式)
  1. =IF(SUMPRODUCT(N($C$2:$H$11<>""))>=ROW(A1),INDIRECT("R"&MOD(SMALL(IF($C$2:$H$11<>"",ROW($C$2:$C$11)+COLUMN($C$2:$H$2)/1%),ROW(A1)),100)&"C"&INT(SMALL(IF($C$2:$H$11<>"",ROW($C$2:$C$11)+COLUMN($C$2:$H$2)/1%),ROW(A1))/100),),"")
复制代码
往下拉

工作簿.zip

16.82 KB, 下载次数: 9

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-11-24 22:42 | 显示全部楼层
还有以用SQL语句:
  1. select * from (select `1车道` as 车道 from [sheet3$C:H] union all select `2车道` from [sheet3$C:H] union all select `3车道` from [sheet3$C:H] union all select `4车道` from [sheet3$C:H] union all select `5车道` from [sheet3$C:H] union all select `6车道` from [sheet3$C:H]) where not isnull(车道)
复制代码
SQL语句.gif

工作簿.zip

22.33 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-11-25 09:11 | 显示全部楼层
dengjq2000 发表于 2014-11-24 22:42
还有以用SQL语句:

dengq2000老师,您真是太厉害了,谢谢您,我用您最早给我写的公式,吧数据转置,也能实现,您真是大神啊,仰慕
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

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

GMT+8, 2024-4-26 15:01 , Processed in 0.039152 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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