Excel VBA 質問スレ Part63

[469 デフォルトの名無しさん (ﾜｯﾁｮｲ b37c-JGMk) 2019/10/27(日) 16:12:11.26 ID:jv/fzOi30]

>>463
With Range("B:H")
'最初
.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
'最後
.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
End With

値が入ってるセルが1つも無いとエラーになるから事前にチェックしておく