- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
使用redim preserve 的方式
紀錄到另一個陣列
就能排除不要的- Sub test()
- Dim rng_new()
- n = 0
- Rng = [a1].Resize(4, 3).Value
- For i = 1 To 4
- If Rng(i, 3) <> Empty Then
- n = n + 1
- ReDim Preserve rng_new(1 To 3, 1 To n)
- For c = 1 To 3
- rng_new(c, n) = Rng(i, c)
- Next
- End If
- Next
- End Sub
|
|
發表於 2017-3-14 17:26
| 