½Ð±Ð¡G¨ì³Ì«á¤@¦Cªº¤èªk...

a_nanami

¨ìaÄ榳¸ê®Æªº³Ì«á¤@¦C»yªk¦p¤U:
Range("a65536").End(xlUp).Select

½Ð°Ý¡G¦pªGaÄ椤ªº­È§¡¬O¥H¤½¦¡±a¥X¡A¬Y¦C«á±a¥Xªº­È§¡¬°ªÅ­È¡A¦³¨S¦³¥i¥H¨ìA150©ÎA151ªº¤èªk¡]§Y±a¥X¹ê»Ú¦³¸ê®Æªº³Ì«á¤@µ§¡^
A1  100
A2  150
A3  90
.
.
A149 110
A150 125
A151 ¤§«á±a¥Xªº­È§¡¬°ªÅ¥Õ

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

§Ú¨S´ú¸Õ¡A¦Û¤v¸Õ¸Õ¬Ý¡I

a_nanami

¦^´_ 2# linyancheng


    §¹¬üµL»~¡A¤Ó·PÁ¤F:)

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


    ¤j¤jªº¤èªk¤]¥i¥H,¤Ó·PÁ¤F:)

  ¦A¦¸ÁÂÁ¤j®aªº«ü¾É!

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