[求助]有个数组转换的技巧忘了,谁告诉我下

fclyjzyk · 发表于 2008-3-27 16:21

就是把sheet表中的一列数据转换成{12,23,4}形式的数组,好像是f9键什么的,记不起来了,谁知道啊?

我现在有好多数组存在表格中,想在vba的array函数中应用它们,怎么能快速转换啊?

northwolves · 发表于 2008-3-27 16:34

s=[a1:a10]

t=[transpose(b8:b20)]

wyr51688 · 发表于 2008-3-27 17:16

用shift+ctrl+enter

fclyjzyk · 发表于 2008-3-27 17:19

都不是啊,我想把文字直接写到代码里,不是存在表格里

northwolves · 发表于 2008-3-27 17:21

s=array(1,2,3,4,5)

s=[column(a:dz)]

fclyjzyk · 发表于 2008-3-27 17:32

大家都没明白我的意思:

我有一个工作簿中有大量的词汇,如"张村","王村","李村"……等等，另一个工作簿中的vba代码中要用到这些词汇，比如a = array("张村","王村","李村"),b = array(……),……，怎么样能快速地把这些词汇拷贝到array函数中来呢？

northwolves · 发表于 2008-3-27 17:53

假设你的数据在sheet1!b8:b20保存

t=[transpose(sheet1!b8:b20)]可返回这些数据

chemiee · 发表于 2008-3-27 20:09

假设你的数据放在A1:E1中，在A2中输入=A1:E1，然后选定A2在编辑栏中按F9。把显示出来的数据copy出来。

[此贴子已经被作者于2008-3-27 20:09:59编辑过]

fclyjzyk · 发表于 2008-3-28 14:20

QUOTE:

以下是引用northwolves在2008-3-27 17:53:38的发言：

假设你的数据在sheet1!b8:b20保存

t=[transpose(sheet1!b8:b20)]可返回这些数据

版主用的可是excel函数？中括号的作用是什么？

northwolves · 发表于 2008-3-28 14:29

t=[transpose(sheet1!b8:b20)] 返回一维数组

方括号功能很多，自己体会吧：

Sub y()
MsgBox [pi()]
MsgBox Join([column(a:z)], ",")
MsgBox Join([transpose(row(1:100)^2)], ",")
End Sub

		自动登录	找回密码
密码			免费注册

回复：（fclyjzyk）[求助]有个数组转换的技巧忘了,谁告...