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

看板Office作者 (阿泰斯)時間8年前 (2017/09/19 17:30), 編輯推噓0(0012)
留言12則, 3人參與, 最新討論串1/1
軟體: 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

09/19 17:55, , 1F
想到的是設個暫存的array,迴圈,判斷大於2時該行不寫入暫
09/19 17:55, 1F

09/19 17:55, , 2F
存的array內
09/19 17:55, 2F

09/19 18:29, , 3F
但這會造成ar(1,2)沒寫進,而ar(2,2)、ar(3,2)有寫進
09/19 18:29, 3F

09/19 18:29, , 4F
我是想整行都不寫進@@
09/19 18:29, 4F

09/19 18:31, , 5F
迴圈判斷該行有一筆大於2時該行就不寫入暫存的array
09/19 18:31, 5F

09/19 18:33, , 6F
上述迴圈內設個布林值,判斷只有出現大於2,布林值為真,
09/19 18:33, 6F

09/19 18:34, , 7F
離開迴圈,為真就該行不寫入暫存的array
09/19 18:34, 7F

09/19 18:35, , 8F
設個布林值的部分,應為設個變數類態為布林值
09/19 18:35, 8F

09/19 18:38, , 9F
另外原po回文寫到但這會造成ar(1,2)沒寫進,而ar(2,2)
09/19 18:38, 9F

09/19 18:39, , 10F
、ar(3,2)有寫進,我並未於回文上寫到判斷大於2時該"元素"
09/19 18:39, 10F

09/19 18:39, , 11F
不寫入暫存的array,我回文寫的該行不寫入
09/19 18:39, 11F

09/20 15:31, , 12F
略過填值的部份
09/20 15:31, 12F
文章代碼(AID): #1PmEFEl9 (Office)