作者ljuber (美少婦與女兒同學的故事)
看板Office
標題[算表] vba如何取看的見資料的最後一列?
時間Tue Jun 13 13:54:23 2017
軟體: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://webptt.com/m.aspx?n=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
1F：→ soyoso: 可改以range.find 搜尋"*"，after為儲存格a1 06/13 14:24
2F：→ soyoso: searchdirection為previous 06/13 14:25
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
3F：→ soyoso: xlPrevious 06/13 14:48
4F：→ ljuber: 解決了!!感謝S大 06/13 15:20
5F：→ ljuber: 想問下S大 若是針對有資料的range select的話 要怎麼改 06/14 16:14
6F：→ soyoso: 以檔案來看原po是select的情況為？ 06/14 16:38
7F：→ ljuber: 應該說是copy才對... 06/14 16:47
8F：→ soyoso: 如以欄來複製的話，可用range連接儲存格字串位置，或以 06/14 17:14
9F：→ soyoso: range.resize來調整範圍，要偏移以range.offset 06/14 17:16
10F：→ ljuber: 感謝s大我成功了 06/15 21:01