Re: [VBA ] 如何在excel裡抓取sheet中的最後一筆資 …
※ 引述《resamond (肥肥的鴕鳥一隻)》之銘言：
: 我需要弄一個巨集
: 能夠自動在excel 中裡的sheet裡
: 取每一個sheet的資料
: 但因為每個sheet的record數不一定
: 所以不能寫死，用自動錄的是寫死的
: 如我要抓取A 欄中的記錄
: 本來有找到一個可能函數range("A1",Range("A1").End(exdown))
: 可是這樣它竟然就抓到65536筆記錄去了
: 好像就跑到excel裡所能存的最多筆數去了
: 我要的資料其實才一百多筆而已
: 所以我想請問有無函數可以抓取最後一筆有資料的record在那一列
: 如果可以的話最好能夠知道列數
: 這樣在設range就很方便了
請問是每次都抓最後一筆嗎
用迴圈不可以嗎
Range("A1").select
Do
If ActiveCell.Offset(i, 0).Value = "" Then
Exit Do
End If
i = i + 1
Loop
從A1開始到最後一筆
只要儲存格是空的就停了，如果是要知道筆數那就是i
因為不清楚你真正的需求是什麼
所以...
有幫到忙嗎?
另外，如果指定的儲存格已經是最後一個
再用.End(xlDown)的話，就會指到65535去了
也就是說只要你確定你的筆數每次絕對都大於2的話
你就可以用
Range("A1").Select
Selection.End(xlDown).Select
這樣就直接指向最後一筆了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.168.52.192
※ 編輯: unfinish 來自: 218.168.52.192 (07/31 22:36)
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章