返回列表 上一主題 發帖

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

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

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

請問:如果a欄中的值均是以公式帶出,某列後帶出的值均為空值,有沒有可以到A150或A151的方法(即帶出實際有資料的最後一筆)
A1  100
A2  150
A3  90
.
.
A149 110
A150 125
A151 之後帶出的值均為空白
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

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

我沒測試,自己試試看!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 2# linyancheng


    完美無誤,太感謝了:)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

Cells(Rows.Count, 1).End(xlUp).Select
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

ROW1 = Range("a65536").End(xlUp).ROW
RANGE("A" & ROW1).SELECT
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

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
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 6# ikboy


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

  再次謝謝大家的指導!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

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
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題