列番号をアルファベットに置き換える
Split(Columns(1).Address,
"$"
)(2)