怎么加内容易最简便的方式加入数组

18116628258 · 发表于 2021-12-5 22:30

有没有更简便的方法加入数组,谢谢

紫色海水 · 发表于 2021-12-6 08:17

枚举式加入数组似乎没有什么别的好办法

lss001 · 发表于 2021-12-6 08:34

行用分号;列用逗号,分隔
arr = [{"片区";"姓名";"电话";"属性";"采购";"区域";"状态";"数量";"其它"}]

18116628258 · 发表于 2021-12-6 11:08

lss001 发表于 2021-12-6 08:34
行用分号;列用逗号,分隔
arr = [{"片区";"姓名";"电话";"属性";"采购";"区域";"状态";"数量";"其它"}]

太感谢了,

18116628258 · 发表于 2021-12-6 11:33

lss001 发表于 2021-12-6 08:34
行用分号;列用逗号,分隔
arr = [{"片区";"姓名";"电话";"属性";"采购";"区域";"状态";"数量";"其它"}]

但是我只是想把内容加到数组的第一列,数组的第二列还有其它内容

lss001 · 发表于 2021-12-6 15:06

本帖最后由 lss001 于 2021-12-7 11:12 编辑

Sub 加至数组第1列() '注意行数相同
  ar = [{"片区";"姓名";"电话";"属性";"采购";"区域";"状态";"数量"}] '1列用分号间隔***
  br = [{1,2;3,4;5,6;7,8;1,2;3,4;5,6;7,8}] '二维
  Set sh = CreateObject("excel.sheet") '创建对象
  With sh.ActiveSheet
x = UBound(ar) '获取各数组行列数
y = UBound(br): y1 = UBound(br, 2)
.[a1].Resize(x, 1) = ar '写入第1列
.[b1].Resize(y, y1) = br '写入第2列
arr = .[a1].Resize(y, 1 + y1) '读取
  End With
  sh.Close '关闭对象
End Sub

Sub 加至数组第1行() '注意列数相同
  ar = [{"片区","姓名","电话","属性","采购","区域","状态","数量"}] '1行用逗号间隔***
  br = [{1,2;3,4;5,6;7,8;1,2;3,4;5,6;7,8}] '二维
  Set sh = CreateObject("excel.sheet") '创建对象
  With sh.ActiveSheet
x = UBound(ar) '获取各数组行列数
y = UBound(br): y1 = UBound(br, 2)
.[a1].Resize(1, x) = ar '写入第1行
.[a2].Resize(y, y1) = br '写入第2行
arr = .[a1].Resize(y + 1, y1) '读取
  End With
  sh.Close '关闭对象
End Sub

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

[求助] 怎么加内容易最简便的方式加入数组

评分