ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

End

 

概要

 
Range.End(Direction)
末端のセルを選択することができる。

引数

Direction

選択する方向を指定する。

空白セルが途中にあると、それ以降の行は無視される。

 xlUp

 上方向に移動

この画像には alt 属性が指定されておらず、ファイル名は image-101.png です

 xlDown

 下方向に移動

この画像には alt 属性が指定されておらず、ファイル名は image-100.png です

 xlToLeft

 左方向に移動

この画像には alt 属性が指定されておらず、ファイル名は image-99.png です

 xlToRight

 右方向に移動

この画像には alt 属性が指定されておらず、ファイル名は image-98.png です

サンプル

' I30のみが選択される
Range("C30:I30").End(xlToRight).Select

実行結果

一番最後のセルのみが選択されていることに注目。

この画像には alt 属性が指定されておらず、ファイル名は image-102.png です

補足

関連ショートカットキー。地味だけど、覚えておくと便利かも!

 同列の一番上の文字列(なければ1行目)までを選択

 Ctrl +

 同列の一番下の文字列(なければ1048576行目)までを選択

 Ctrl +

 同行の一番右の文字列(なければA列目)までを選択

 Ctrl +

 同行の一番左の文字列(なければXFD列目)までを選択

 Ctrl+

 

動物名に「ネコ」が含まれる場合に、動物名を赤字にするサンプルこの画像には alt 属性が指定されておらず、ファイル名は image-9.png です

Dim row As Long, col As Long, i As Long

' 表の最後の列番号
row = Range("A1").End(xlDown).row

' 表の最後の行番号
col = Range("A1").End(xlToRight).Column

For i = 2 To row
If Cells(i, col).Value Like "*ネコ" Then
Cells(i, col).Font.Color = rgbRed
End If
Next

 

f:id:Arpino:20200405132354p:plain