首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VBA求二维数组剔除选定数据

2012-12-31 
VBA求二维数组删除选定数据例:VAR(11,12,13,14)(7,8,11,19)(12,15,19,20).。。。。把VAR含有11和14的数据删除

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(变量)
如果不存在则把当前数组内容追加到另一个数组中

热点排行