返回列表 上一主題 發帖

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

回復 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

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題