作者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/cn.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