basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-26 21:15 | 只看該作者

如何找最後的數

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

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

7^#

發表於 2010-7-27 10:08 | 只看該作者

回復 6# dechiuan999

謝謝你!
我試試先.

50 字節以內
不支持自定義 Discuz! 代碼

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

6^#

發表於 2010-7-27 06:30 | 只看該作者

你好：

請試試如下

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

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

5^#

發表於 2010-7-26 22:12 | 只看該作者

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

回復 4# oobird

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-7-26 22:00 | 只看該作者

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

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2010-7-26 21:50 | 只看該作者

回復 2# jackdream

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2010-7-26 21:45 | 只看該作者

回復 1# basarasy

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

複製代碼

TOP