請教：到最後一列的方法...

a_nanami

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

請問：如果a欄中的值均是以公式帶出，某列後帶出的值均為空值，有沒有可以到A150或A151的方法（即帶出實際有資料的最後一筆）
A1  100
A2  150
A3  90
.
.
A149 110
A150 125
A151 之後帶出的值均為空白

linyancheng

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

回復 2# linyancheng


    完美無誤，太感謝了:)

joey0415

Cells(Rows.Count, 1).End(xlUp).Select

kim223824

ROW1 = Range("a65536").End(xlUp).ROW
RANGE("A" & ROW1).SELECT

ikboy

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

回復 6# ikboy


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

  再次謝謝大家的指導!

linyancheng

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