excelで入力の最終行に移動するには

Question

excelで上から順に入力していきます。次第に行が増えて４００行とかなってしまうんですが、それをVBAのコマンドボタンか何かで最終行（次に入力するセル）まで一発で移動できませんか？
大変困っていますのでよろしくお願い致します

kazuhiko5681 · Accepted Answer

こんにちわ。サンプルマクロを作ってみました。次のように操作してみて下さい。

１.データの入力されているブックを開き、ＣＴＲ＋Ｆ１１キーを押してＶＢＥ画面を表示させる。 
２.VBAProjectの下にあるThisWokrkbookにカーソルを合わせダブルクリックする。 
３.ThisWorkbookのコードエディター(右側の白い部分)が開くので、そこに下記のコードをコピー・ペーストする。 

Private Sub Workbook_Open() 

Dim myCell As String 

myCell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Address 
If myCell = "$A$1" Then 
ThisWorkbook.Worksheets(1).Range("A1").Select 
Else 
ThisWorkbook.Worksheets(1).Range(myCell).Offset(1, 0).Select 
End If 

End Sub 

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

Dim myCell As String 

myCell = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Address 
If myCell = "$A$1" Then 
ActiveSheet.Range("A1").Select 
Else 
ActiveSheet.Range(myCell).Offset(1, 0).Select 
End If 

End Sub 

４.VBAProjectの下にあるSheet1にカーソルを合わせダブルクリックする。 
５.Sheet1のコードエディター(右側の白い部分)が開くので、そこに下記のコードをコピー・ペーストする。 

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim myRow As Long
    
    
    If Target.Address = "$A$3" Then
        If Target.Value <> "" Then
            myRow = Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(myRow, 1).End(xlToRight).Column _
                = Cells(myRow - 1, Columns.Count).End(xlToLeft).Column Then
                Cells(myRow + 1, 1).Select
            Else
                Cells(myRow, Columns.Count).End(xlToLeft).Offset(0, 1).Select
            End If
        End If
    End If

End Sub

６.ブックを保存終了し、再度そのブックを開く。 

あなた様のやられたいことが実現していると思います。 

もし、不都合な点がありましたら、遠慮なくお知らせ下さい。私でよろしければ、あなた様のやられたいことが実現できるまで一緒に考えたいと思います。 その際には、表の構成内容とあなた様のやられたいことを順を追って詳しくお知らせ下さい。
お手数をおかけいたしますが、よろしくお願いいたします。

TTak · Answer

Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1).Select 
で、A列の最終行の次の空白セルに移動しますよ。もし、セル編集後にどの位置からでも即座にその列の最終行の次の空白セルに移動したいというのであれば、次のコードになります。

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
 ByVal Target As Range)
c = Range(Target.Address).Column
Cells(ActiveSheet.Rows.Count, c).End(xlUp).Offset(1).Select
End Sub

vbエディタのThisWorkbookのコードウインドウに、コピー＆ペーストして使います。

kazuhiko5681 · Answer

はじめまして。

サンプルマクロを作ってみました。以下のように操作してみて下さい。

１.データの入力されているブックを開き、ＣＴＲ＋Ｆ１１キーを押してＶＢＥ画面を表示させる。
２.VBAProjectの下にあるThisWokrkbookにカーソルを合わせダブルクリックする。
３.ThisWorkbookのコードエディター(右側の白い部分)が開くので、そこに下記のコードをコピー・ペーストする。

Private Sub Workbook_Open()

    Dim myCell As String
        
    myCell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Address
    If myCell = "$A$1" Then
        ThisWorkbook.Worksheets(1).Range("A1").Select
    Else
        ThisWorkbook.Worksheets(1).Range(myCell).Offset(1, 0).Select
    End If
    
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Dim myCell As String
    
    myCell = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Address
    If myCell = "$A$1" Then
        ActiveSheet.Range("A1").Select
    Else
        ActiveSheet.Range(myCell).Offset(1, 0).Select
    End If
    
End Sub

４.ブックを保存終了し、再度そのブックを開く。

あなた様のやられたいことが実現していると思います。

もし、不都合な点がありましたら、遠慮なくお知らせ下さい。私でよろしければ、あなた様のやられたいことが実現できるまで一緒に考えたいと思います。
お手数をおかけいたしますが、よろしくお願いいたします。

TTak · Answer

> VBAのコマンドボタンか何かで最終行（次に入力するセル）まで一発で移動
ということであれば、

Private Sub CommandButton1_Click()
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1).Select
End Sub'　　　　　　　　　　　~~~

とか、いかがでしょう。（1列目の例です。~~~の所が行数です。）

Zz_zZ · Answer

Ctrl＋↓ (↑ → ← ↓)

は、連続する行・列に対して最後(最前)まで飛びますが、
途中でデータが抜けている(空白セル)と、そこの前まで
しか飛びません。


つまり、シートの最左・左上 A1 に飛ぶには、Ctrl＋Home
ですから、その逆になります。

aieeen · Answer

private sub()
Range("A1").Serect //行きたい列
Selection.End(xlDown).Select

これではダメでしょうか？

Zz_zZ · Answer

少なくとも、

Ｃtrl＋End

で、最下行・最右セル

まではジャンプできます。

その、最下行・最右セルから、Home キー
で、最下行の A 列にシフトできます。

a-kuma · Answer

コントロールキー（Ctrl）を押しながら、矢印キーの下（↓）を押すと、内容が詰まっている
最後のセルに飛ぶんですが、それでどうですか？

excelで入力の最終行に移動するには

こんにちわ。

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

はじめまして。

この回答への補足

> VBAのコマンドボタンか何かで最終行（次に入力するセル）まで一発で移動

この回答への補足

Ctrl＋↓ (↑ → ← ↓)

private sub()

少なくとも、

コントロールキー（Ctrl）を押しながら、矢印キーの下（↓）を押すと、内容が詰まっている

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング