[算表] 巨集自動刪除陣列內值大於2的該行?

[candy88257 (阿泰斯)]

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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.121.43
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1505813454.A.BC9.html
→ soyoso: 想到的是設個暫存的array，迴圈，判斷大於2時該行不寫入暫
→ soyoso: 存的array內
→ candy88257: 但這會造成ar(1,2)沒寫進，而ar(2,2)、ar(3,2)有寫進
→ candy88257: 我是想整行都不寫進@@
→ soyoso: 迴圈判斷該行有一筆大於2時該行就不寫入暫存的array
→ soyoso: 上述迴圈內設個布林值，判斷只有出現大於2，布林值為真，
→ soyoso: 離開迴圈，為真就該行不寫入暫存的array
→ soyoso: 設個布林值的部分，應為設個變數類態為布林值
→ soyoso: 另外原po回文寫到但這會造成ar(1,2)沒寫進，而ar(2,2)
→ soyoso: 、ar(3,2)有寫進，我並未於回文上寫到判斷大於2時該"元素"
→ soyoso: 不寫入暫存的array，我回文寫的該行不寫入
→ Iories: https://i.imgur.com/fbcJRKd.png 略過填值的部份