最終列の取得

以前最終行を取得するマクロを作成したが，やっぱり最終列を取得するマクロもほしいなと…多分これは2種類の表示方法があると思う．通常のシート表示だとH1のcellのような表示の場合列としてはH列として取得したいし，R1C1のような表示だとH1の場合Hは8列目のため"8"を取得したいです．

【例題Excelシート】


【事例1(Hを取得する)】
Sub last_col()
Range("A1").SelectSelection.End(xlToRight).Select
endcel = ActiveCell.Address
cellend = Mid(endcel, 2, 1)
MsgBox "このシートの最終セル：" & cellend
End Sub

【事例2（8を取得する)】
Sub last_col()
cellend = Range("A1").CurrentRegion.Columns.Count
MsgBox "このシートの最終セル：" & cellend
End Sub

【解説】
基本的には最終行を取得する方法を応用することで実現できます．

【注意】
注意としては、列の表示方法として事例1と事例2では得られる値が違うので自分がほしい値で使い分けよう．