VBA求二维数组删除选定数据
例:VAR(11,12,13,14);(7,8,11,19)(12,15,19,20).。。。。
把VAR含有11和14的数据删除。(11和14是个变量,可能会增加或减少)
请高手给出原理和代码谢谢!!!
[解决办法]
用redim
假设
dim a
redim a(4,5)'这里把你上面的原始数据装载进去
用for i=1 to 4 判断里面的元素,符合条件的话到下一步
整体往前移一位,然后用redim preserve a(3,5)'这里必须要有preserve,不然已经保存的数据在数组长度重定义后会丢失。
[解决办法]
通过2层循环2维数组
然后可以用instr判断是否存在11或14(变量)
如果不存在则把当前数组内容追加到另一个数组中