作者candy88257 (阿泰斯)
看板Office
標題[算表] 巨集自動刪除陣列內值大於2的該行?
時間Tue Sep 19 17:30:51 2017
軟體: 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://webptt.com/m.aspx?n=bbs/Office/M.1505813454.A.BC9.html
1F：→ soyoso: 想到的是設個暫存的array，迴圈，判斷大於2時該行不寫入暫 09/19 17:55
2F：→ soyoso: 存的array內 09/19 17:55
3F：→ candy88257: 但這會造成ar(1,2)沒寫進，而ar(2,2)、ar(3,2)有寫進 09/19 18:29
4F：→ candy88257: 我是想整行都不寫進@@ 09/19 18:29
5F：→ soyoso: 迴圈判斷該行有一筆大於2時該行就不寫入暫存的array 09/19 18:31
6F：→ soyoso: 上述迴圈內設個布林值，判斷只有出現大於2，布林值為真， 09/19 18:33
7F：→ soyoso: 離開迴圈，為真就該行不寫入暫存的array 09/19 18:34
8F：→ soyoso: 設個布林值的部分，應為設個變數類態為布林值 09/19 18:35
9F：→ soyoso: 另外原po回文寫到但這會造成ar(1,2)沒寫進，而ar(2,2) 09/19 18:38
10F：→ soyoso: 、ar(3,2)有寫進，我並未於回文上寫到判斷大於2時該"元素" 09/19 18:39
11F：→ soyoso: 不寫入暫存的array，我回文寫的該行不寫入 09/19 18:39