標題: 如何找最後的數 [打印本頁]

---

作者: basarasy    時間: 2010-7-26 21:15     標題: 如何找最後的數

a1:a10  都有東西的   a5:a10被隱藏了
用activecell.end(xlup) 只找到a4
有什麼方法可以找到最後的數?

---

作者: jackdream    時間: 2010-7-26 21:45

回復 1# basarasy

1.     Cells.EntireRow.Hidden = False  '取消隱藏
   
2.      '顯示最後的內容
   
3.     MsgBox Cells(ActiveCell.End(4).Row, ActiveCell.Column)

複製代碼

---

作者: basarasy    時間: 2010-7-26 21:50

回復 2# jackdream


    有沒有方法不取消隱藏都能找到最後的資料呢?

---

作者: oobird    時間: 2010-7-26 22:00

MsgBox Cells([a:a].Find("*", , , , , 2).Row, 1)

---

作者: basarasy    時間: 2010-7-26 22:12

本帖最後由 basarasy 於 2010-7-26 23:15 編輯

回復 4# oobird

謝謝大大
請問這句MsgBox Cells([a:a].Find("*", , , , , 2).Row, 1) 可以改找出最後1格 下1格的row嗎?

---

作者: dechiuan999    時間: 2010-7-27 06:30

你好：

請試試如下

MsgBox Cells([a:a].Find("*", , , , , 2).Row, 1).Offset(1).Row

---

作者: basarasy    時間: 2010-7-27 10:08

回復 6# dechiuan999


    謝謝你!
我試試先.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)