VBA 用数组给一个字符串赋值

Question

这一小段程序是为了给上万个表格贴入一张照片，这图片再根据人名从9张图片里挑选。因为表格数量实在太多，如果直接运行，最高到500多份VBA就不动了，只好动用数组。本意是把执行段落赋值给一个一维数组，程序在数组里运行然后赋值即可。Dim STR(1-9) as string ,问题来了，随便我怎么定义数组，程序全部一个不拉的把从头到尾跑一遍，而不去管数组如何。如附图中，如果把备注符去掉，定义一下STR数组1-9，EXECL表格里就会出现4张图片，同样把倒数第二行的赋值语句去掉也完全不影响它的我行我素。也就是说数组赋值完全无效果，头疼啊，大神每天都会有1个女朋友的！

Answer 1

你这代码根本就没有定义数组。定义数组：dim STR（9） as string 这是定义一个可以存储10个元素的一维数组 从0开始 分别是STR（0），STR（1），STR（2）...STR(9) 共十个。
后面的 as string 是指定这个一维数组的数据类型是 string，即字符串型数组。
还有数组不能保存命令操作，只能保存值。
另外问你一下:你的代码要做的是在 指定工作表的指定单元格插入指定图片 是这样吧?追问

发的时候在试验，把数组声明去掉了

"指定工作表的指定单元格插入指定图片",是这样的