ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 名课 - Power BI数据分析与可视化实战 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 Kutools for Office 套件发布 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Saint_Zuo

[求助] 二维数组如何转为一维数组,结果要求是内存数组.

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-11-27 14:31 | 显示全部楼层
原帖由 晚枫 于 2009-11-26 11:32 发表
参考这个:

http://club.excelhome.net/dispbb ... D=366654&skin=1

这个的是已知多个一维数组的连接,可现在的问题是要将二维数组的所有行或所有列组成的多个一维数组取出来才可以使用上面链接的方法。可用什么函数取二维数组的每行或每列呢!我实在想不出呀。请教各位高手呀。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-11-27 16:53 | 显示全部楼层
自己再顶一下,各位帮帮忙呀,多谢了。

TA的精华主题

TA的得分主题

发表于 2009-11-30 11:43 | 显示全部楼层
x={"a",1,"";0,"d",-1;3," ","d"}


CHOOSE(CEILING(COLUMN(A1:I1)/3,1),LOOKUP(MOD(COLUMN(A1:I1)-1,3)+1,{1,2,3},INDEX(x,1,)),LOOKUP(MOD(COLUMN(A1:I1)-1,3)+1,{1,2,3},INDEX(x,2,)),LOOKUP(MOD(COLUMN(A1:I1)-1,3)+1,{1,2,3},INDEX(x,3,)))

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-11-30 15:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 子元女王 于 2009-11-30 11:43 发表
x={"a",1,"";0,"d",-1;3," ","d"}


CHOOSE(CEILING(COLUMN(A1:I1)/3,1),LOOKUP(MOD(COLUMN(A1:I1)-1,3)+1,{1,2,3},INDEX(x,1,)),LOOKUP(MOD(COLUMN(A1:I1)-1,3)+1,{1,2,3},INDEX(x,2,)),LOOKUP(MOD(COLUMN(A1:I1 ...

多谢了。我还有一个问题请教,假如数组是50行50列的话choose函数的参数是不是就不够用了呢?

TA的精华主题

TA的得分主题

发表于 2010-10-5 17:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
row        =ROWS($A$3:$A$6)
a        =roundup((row()-b)/row,0)
b        =row($g$2)-1
c        =ROW()-b+(d-1)*row
d        =ROUNDUP((ROW()-b)/row,0)
=INDEX($A$3:$C$6,c,d)
=INDEX($A$3:$C$6,ROW()-ROW($g$2)+1-(ROUNDUP((ROW()-ROW($g$2)+1)/row,0)-1)*row,ROUNDUP((ROW()-ROW($g$2)+1)/row,0))
g2为你要放入数据的第一单元格
$A$3:$C$6需转换的区域。
直接往下拉就行了
随便区域有多少行多少列,都是直接拉就行了,用起来像傻瓜相机吧,很方便吧。

TA的精华主题

TA的得分主题

发表于 2010-10-5 18:22 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
上面错了一点,应为c        =ROW()-b-(d-1)*row

TA的精华主题

TA的得分主题

发表于 2010-10-5 20:05 | 显示全部楼层
原帖由 wangg913 于 2009-11-26 15:00 发表
我奇怪它不好使,我也验证出来。
不但columns,
index、count等都不能用
??是等高手路过

=COLUMNS(N(INDEX({"a",1,"";0,"d",-1;3," ","d"},CEILING(COLUMN(1:9)/3,1),COLUMN(1:9)-3*INT((COLUMN(1:9)-0.1)/3))))这样就等于1了,但是不知道楼主的具体意思!楼主最好上传个附件,描述具体问题!

[ 本帖最后由 zljkd007 于 2010-10-5 20:08 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-10-5 20:25 | 显示全部楼层

回复 17楼 zljkd007 的帖子

见笑,那时我还是新手。

TA的精华主题

TA的得分主题

发表于 2010-10-5 20:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 18楼 wangg913 的帖子

晕,09年的帖子!谁挖出来的啊? 我还奇怪了,大头怎么像新人一样说话!

TA的精华主题

TA的得分主题

发表于 2012-11-12 17:32 | 显示全部楼层
guihuapiao 发表于 2010-10-5 17:48
row        =ROWS($A$3:$A$6)
a        =roundup((row()-b)/row,0)
b        =row($g$2)-1

兄台确定这个很好用吗?给个例子验证一下,感谢为上!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-12-21 17:47 , Processed in 0.022646 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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