[算表] vba如何取看的見資料的最後一列?

[ljuber (美少婦與女兒同學的故事)]

軟體:excel

版本:2007

如果A1:A10

其中A1:A5有資料

理論上用range("A1").end(xldown).row

會得到5

但是總是得到10

發現似乎空格不是真的完全空白

這種狀況vba要怎麼寫?

檔案

https://drive.google.com/open?id=0BwCgrQhGgaw7X0xIS2kzWkNIVDA


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1497333266.A.A4C.html
※ 編輯: ljuber (60.250.67.77), 06/13/2017 13:54:49
※ 編輯: ljuber (60.250.67.77), 06/13/2017 14:06:34
→ soyoso: 可改以range.find 搜尋"*"，after為儲存格a1
→ soyoso: searchdirection為previous

MsgBox Range("A1:A100").Find(What:="*", After:=Range("A1"), _
LookAt:=xlWhole, SearchDirection:=Previous, _
SearchOrder:=xlByRows, MatchCase:=True, _
SearchFormat:=True).Row

這樣會傳回2
不知道要怎麼改@@
※ 編輯: ljuber (60.250.67.77), 06/13/2017 14:44:13
→ soyoso: xlPrevious
→ ljuber: 解決了!!感謝S大
→ ljuber: 想問下S大 若是針對有資料的range select的話 要怎麼改
→ soyoso: 以檔案來看原po是select的情況為？
→ ljuber: 應該說是copy才對...
→ soyoso: 如以欄來複製的話，可用range連接儲存格字串位置，或以
→ soyoso: range.resize來調整範圍，要偏移以range.offset
→ ljuber: 感謝s大我成功了