[算表] 宏自动删除阵列内值大于2的该行?

楼主: candy88257 (阿泰斯)   2017-09-19 17:30:51
软件: excel
版本: 2003
宏卡住了不会写@@
例如:
Dim ar()
ReDim ar(3,2)
ar(1,1)=1
ar(1,2)=2
ar(2,1)=0
ar(2,2)=-1
ar(3,1)=0.5
ar(3,2)=-2
我想自动判定上述阵列内值大于2的行,并删除该阵列的该整行,请问该怎做??
作者: soyoso (我是耀宗)   2017-09-19 17:55:00
想到的是设个暂存的array,循环,判断大于2时该行不写入暂存的array内
楼主: candy88257 (阿泰斯)   2017-09-19 18:29:00
但这会造成ar(1,2)没写进,而ar(2,2)、ar(3,2)有写进我是想整行都不写进@@
作者: soyoso (我是耀宗)   2017-09-19 18:31:00
循环判断该行有一笔大于2时该行就不写入暂存的array上述循环内设个布林值,判断只有出现大于2,布林值为真,离开循环,为真就该行不写入暂存的array设个布林值的部分,应为设个变量类态为布林值另外原po回文写到但这会造成ar(1,2)没写进,而ar(2,2)、ar(3,2)有写进,我并未于回文上写到判断大于2时该"元素"不写入暂存的array,我回文写的该行不写入
作者: Iories (无法克制)   2017-09-20 15:31:00
https://i.imgur.com/fbcJRKd.png 略过填值的部份

Links booklink

Contact Us: admin [ a t ] ucptt.com