返回列表 上一主題 發帖

有函數、方法可以知道陣列中非"無"個數嗎?[已解決]

asus103

帖子
77 
主題
11 
精華
0 
積分
118 
點名
0  
作業系統
winXP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2010-12-24 
最後登錄
2011-3-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-6 13:24 | 只看該作者

有函數、方法可以知道陣列中非"無"個數嗎?[已解決]

本帖最後由 asus103 於 2011-1-6 15:09 編輯

請問各位大大
有函數、方法可以直接知道陣列中：
1.非"無"個數嗎?
2.最後一個非"無"的位置?
謝謝

查過EXCEL說明
陣列關鍵字摘要
作用 關鍵字
確認一個陣列。 IsArray
建立一個陣列。 Array
改變下標的預設最小值。 Option Base
宣告及初始陣列。 Dim, Private, Public, ReDim, Static
判斷陣列下標極限值。 LBound, UBound
重新初始一個陣列。 Erase, ReDim

還有其他可用的嗎?
或是哪裡還可以查到資料?
收藏 分享
ASUS

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
280  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-1-6 14:05 | 只看該作者
回復 1# asus103
  1. Sub xx()
  2. ar = Application.Transpose([K1:K15])
  3. For i = LBound(ar) To UBound(ar)
  4.   If IsEmpty(ar(i)) Then cnt = cnt + 1 Else k = i
  5. Next
  6. MsgBox "無的數量:" & cnt & Chr(10) & "最後非空的id:" & k
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

asus103

帖子
77 
主題
11 
精華
0 
積分
118 
點名
0  
作業系統
winXP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2010-12-24 
最後登錄
2011-3-2 
3#
發表於 2011-1-6 15:08 | 只看該作者
收到了
感謝超級版主
有了這些，寫巨集一定會更方便
ASUS

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題