Board logo

標題: 請教:到最後一列的方法... [打印本頁]

作者: a_nanami    時間: 2017-10-24 16:23     標題: 請教:到最後一列的方法...

到a欄有資料的最後一列語法如下:
Range("a65536").End(xlUp).Select

請問:如果a欄中的值均是以公式帶出,某列後帶出的值均為空值,有沒有可以到A150或A151的方法(即帶出實際有資料的最後一筆)
A1  100
A2  150
A3  90
.
.
A149 110
A150 125
A151 之後帶出的值均為空白
作者: linyancheng    時間: 2017-10-24 19:24

Range("a65536").End(xlUp).Select

dim N as long
n=1
do
n=n-1
if not selection.offset(n,0).value="" then
exit do
end if
loop
selection.offset(n,0).select

我沒測試,自己試試看!
作者: a_nanami    時間: 2017-10-24 20:04

回復 2# linyancheng


    完美無誤,太感謝了:)
作者: joey0415    時間: 2017-10-24 22:15

Cells(Rows.Count, 1).End(xlUp).Select
作者: kim223824    時間: 2017-10-25 09:00

ROW1 = Range("a65536").End(xlUp).ROW
RANGE("A" & ROW1).SELECT
作者: ikboy    時間: 2017-10-25 10:18

Sub zz()
a = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
For i = UBound(a) To 1 Step -1
    If Len(a(i, 1)) Then Exit For
Next
Cells(i, 1).Select
End Sub
作者: a_nanami    時間: 2017-10-25 11:32

回復 6# ikboy


    大大的方法也可以,太感謝了:)

  再次謝謝大家的指導!
作者: linyancheng    時間: 2017-10-28 15:07

Range("a65536").End(xlUp).Select

dim N as long
n=1
do
n=n-1
if not selection.offset(n,0).value="" then
exit do
end if
if selection.row +n -1 < 1 then
exit do
end if
loop
selection.offset(n,0).select




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