【Excel勉強メモ】関数・ショートカット、VBAコード

Excelの個人用勉強メモ

１．関数

２．ショートカット

（１）データの最後まで移動

「Ctrl」＋「方向キー」

（２）データの最後まで選択

「Ctrl」＋「Shift」＋「方向キー」

３．VBAコード

（１）最終行・最終列を取得する

' 行：上からカウント
Cells(1, 1).End(xlDown)

' 行：下からカウント
Cells(Rows.Count, 1).End(xlUp)

' 行：左からカウント
Cells(1, 1).End(xlToRight)

' 行：右からカウント
Cells(1, Columns.Count).End(xlToLeft)

（２）最終行・最終列の値を取得する

' 行：上からカウント
Cells(1, 1).End(xlDown).Row

' 行：下からカウント
Cells(Rows.Count, 1).End(xlUp).Row

' 行：左からカウント
Cells(1, 1).End(xlToRight).Column

' 行：右からカウント
Cells(1, Columns.Count).End(xlToLeft).Column

（３）最終列がある行を取得

Sub sample001()
   Dim i
   Dim ci_max, c_max
   Dim r1_max, r_max
   r1_max = Cells(Rows.Count, 1).End(xlUp).Row
   c_max = 0
   For i = 1 To r1_max
       ci_max = Cells(i, Columns.Count).End(xlToLeft).Column
       If (c_max < ci_max) Then
           c_max = ci_max
           r_max = i
       End If
   Next i
   MsgBox ("最終列がある行は" & r_max & "行目で、" & c_max & "列目にデータがあります。")
End Sub