軟體: 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的行，並刪除該陣列的該整行，請問該怎做??

想到的是設個暫存的array，迴圈，判斷大於2時該行不寫入暫存的array內

但這會造成ar(1,2)沒寫進，而ar(2,2)、ar(3,2)有寫進我是想整行都不寫進@@

迴圈判斷該行有一筆大於2時該行就不寫入暫存的array上述迴圈內設個布林值，判斷只有出現大於2，布林值為真，離開迴圈，為真就該行不寫入暫存的array設個布林值的部分，應為設個變數類態為布林值另外原po回文寫到但這會造成ar(1,2)沒寫進，而ar(2,2)、ar(3,2)有寫進，我並未於回文上寫到判斷大於2時該"元素"不寫入暫存的array，我回文寫的該行不寫入

https://i.imgur.com/fbcJRKd.png 略過填值的部份