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
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