返回列表 上一主題 發帖

[發問] 有辦法單獨去除陣列內的某欄位或是某列嗎?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-2-16 13:01 | 只看該作者

[發問] 有辦法單獨去除陣列內的某欄位或是某列嗎?

例如下表:4*3的陣列

分類 數量  成本
國產    1      4
進口    2      5
自製    3      6

有甚麼指令可以讓陣列變成下表,把原本(3,1)(3,2)(3,3)都刪除掉,並且下面的資料會往上遞補?

分類 數量  成本
國產    1      4
自製    3      6

程式碼如下:
  1. rng=[a1].resize(4,3).value
  2. for i=1 to 3
  3.   rng(3,i)=empty
  4. next
複製代碼
'我只會將第三列都變成空白,但是第四列並不會自動網上遞補,有這種功能可以像EXCEL刪除列一樣,自動往上補嗎?
收藏 分享
PKKO

linyancheng

帖子
226 
主題
73 
精華
2 
積分
331 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-9-1 
2#
發表於 2017-2-17 22:31 | 只看該作者
似乎沒有！

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2017-3-14 17:26 | 只看該作者
使用redim preserve 的方式
紀錄到另一個陣列
就能排除不要的
  1. Sub test()
  2. Dim rng_new()
  3. n = 0
  4. Rng = [a1].Resize(4, 3).Value
  5. For i = 1 To 4
  6.     If Rng(i, 3) <> Empty Then
  7.         n = n + 1
  8.         ReDim Preserve rng_new(1 To 3, 1 To n)
  9.         For c = 1 To 3
  10.             rng_new(c, n) = Rng(i, c)
  11.         Next
  12.     End If
  13. Next

  15. End Sub
複製代碼
字典兩各字 還真難理解

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2017-3-15 14:07 | 只看該作者
回復 3# freeffly


可以排除不要的沒錯
我重新創立一個陣列也可以排除不要的,但多一道功夫
所以才想問是否有單獨取出的部分
PKKO

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題