2012-08-04 ExcelVBA Range(”A1”) で、Aを取得したい（列をアルファベットで取得したい）なら Split(Range("A1").Address,"$")(1) Excel chrCulum = Split(Range("A1").Address,"$")(1) ネタ元 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1312976258
