2017-03-01 78 views
1

當用戶點擊一個單元格時,我想從第5行開始將用戶帶到電子表格中最後一次使用的行。轉到最後一行從第x行開始,忽略空白?

由於某種原因,這不起作用,併產生了對象工作表失敗錯誤的方法範圍。

代碼:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Column = Range("AB2").Column Then 
     Range("A4" & Rows.Count).End(xlUp).Select 
    End If 
End Sub 

請能有人告訴我在哪裏,我錯了?

+0

試試這個,而不是'Range(「A」&Rows.Count).End(xlUp).Select'。而且你的代碼只適用於有人在列AB –

+0

@Peh中點擊,謝謝我已經試過這個,但它需要用戶行2.我需要它將用戶從第5行下降到最後使用的行 – user7415328

+0

這隻能發生因爲列A中最後使用的行是第2行。或者我不明白。你的意思是去上一次使用的行,但至少去第5行? –

回答

3

這將跳轉到上次使用的行,但至少要排5

If Range("A" & Rows.Count).End(xlUp).Row < 5 Then 
     Range("A5").Select 
    Else 
     Range("A" & Rows.Count).End(xlUp).Select 
    End If 
2

在表的最後一行是在其UsedRange的右下角這樣:

[a1].SpecialCells(xlLastCell).Row 

找到最後一行。