【V入2期】数组入门练习二

飞龙在天 · 发表于 2008-7-11 18:38

游客，如果您要查看本帖隐藏内容请回复

忘记有回复可见了

[此贴子已经被作者于2008-7-11 18:39:43编辑过]

annefei · 发表于 2008-7-13 21:40

[em09] Sub aa() Dim arrname As Variant arrname = Array("周一", "钱二", "张三", "李四", "王五", "赵六", "陈七", "何八", "冯九", "郑零") Worksheets("sheet2").Range("a1:j1") = arrname End SubSub bb() Dim arrname As Variant arrname = Array("周一", "钱二", "张三", "李四", "王五", "赵六", "陈七", "何八", "冯九", "郑零") Worksheets("sheet2").Range("a1:a10") = Application.Transpose(arrname) End Sub

[此贴子已经被作者于2008-7-13 21:42:05编辑过]

zxb2008 · 发表于 2008-7-22 13:00

xue xi

fzzjw · 发表于 2008-7-22 13:38

看高手的答案。

jianghaogy · 发表于 2008-8-20 14:53

名媛 · 发表于 2008-9-24 14:41

[em01][em01][em01]

LY728002 · 发表于 2008-11-20 00:14

Look at!!!

望着天空女孩 · 发表于 2008-11-20 22:28

看看

zz_brandr · 发表于 2008-11-21 23:03

kankankankan

BLACK☆STAR · 发表于 2008-11-22 00:32

看看

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

[习题] 【V入2期】数组入门练习二