【おしごと備忘録】列番号を列アルファベット表記にしたい

ごちゃってるので以下解説 　 ①VBAでの場合： A）Debug.Print Split(Cells(1, 列番号).Address, "$")(1) B）Debug.Print Split(Columns(列番号).Address, "$")(2) 　 「.Address」で列番号ごとのセル番地を取得し、Split関数で、「$」で区切った後に該当するいち配列を取得する。 　 A）では「$AD$1」、 B）では「$AD:$AD」が「.Address」のそれぞれの結果となり、これをSplit関数で区切っていく。最後の(1)、(2)はインデックス値と呼ばれるもの。Split関数は結果が配列となるため、アルファベットがあるいち配列を選択している。 　 えっ、別に区切らなくてもいいじゃん。 セル番地のアドレスからそのままRight関数で指定してとって来ればいいじゃん。と思うかもしれないが、このように「$AD:$AD」など列アルファベットが二桁になることもあるため、Right関数では不具合が出てしまう。（Mid関数ならいけそうな気がするがコードが長くなるからとかそんな理由だろう。難しいのはこちらとしても求めてない） 　 　 B）では列番号＝30として、 「Columns(30).Address」の結果は「$AD:$AD」となる。 「Split(Columns(30).Address, "$")」の結果は、＄を区切り文字としたSplit関数により複数に分けられ、配列格納となる。 Split関数に格納された結果（配列）は以下の３つに格納される。 配列(0)："" 配列(1)：AD: 配列(2)：AD この通り配列は「0から2」の3つとなっており、3番目の配列である「配列(2)」を取り出している。 配列(2)の(2)はインデックス値と呼ばれ、配列の要素数の何番目を取り出すか、といった場面で使われる。例えばSheets(2)の(2)の部分もインデックス値とよばれる。 ちなみに、配列(0)の中身が空になるのは、先頭に$が付けられていて、そこで区切られるから。 --- Excel関数の場合 ①　=SUBSTITUTE(ADDRESS(1,列番号,4),1,"") ※列番号にはアルファベットに変えたい列番号が入る。 ②　=SUBSTITUTE(ADDRESS(1,MATCH(検索値,検索範囲,0),4),1,"") ※①の列番号にMatch関数を用いたもの。 　 こっちの方が汎用的だが、解説がめんどい。 ②の場合、使用する関数は3つ。 Substitute関数、Address関数、さらに列番号のところにMatch関数を組みこむことで、特定の文字（検索値）にある列番号を調べ、それを列アルファベットに変換することができる。 ※Match関数を用いる場合、完全一致が求められるので注意。 --- =SUBSTITUTE(文字列,検索文字列,置換文字列) =SUBSTITUTE(ADDRESS関数,1,"") Substitute関数は文字列を置換する関数。 VBAでいうところのReplace関数と同じ。 この場合の文字列はAddress関数で指定するセル番地を用いる。 その中から「1」を見つけ出して、空欄にすることでアルファベットのみにしている。 　 何を言ってるのか、初見ではよく分からないのだが、 後述の通り、Address関数の結果は「B1」「J1」などと行番号は1固定で出てくるためである。 その「1」が要らないからこの関数で空欄に、ということになる。 --- =ADDRESS(行番号,列番号,参照の種類) =ADDRESS(1,MATCH関数,4) 特定のセル番地を表示させる関数。 行番号は、「1」固定。理由は「A1」「B1」など簡単にするため。 列番号の部分は、変えたい列番号もしくはMatch関数の結果。 参照の種類とは、VLOOKUPのような定数指定となっており、次の1～4までとなっている。 つまり$の表記の仕方の指定。 　 1…絶対参照　　　　　$B$1 2…行絶対、列相対　　$B1 3…行相対、列絶対　　B$1 4…相対参照　　　　　B1 　 今回は$を付ける必要がないので、相対参照の「4」を指定する。 --- ・=MATCH(検索値,検索範囲,0) Match＝一致するという意味。 例えば表ラベルの中から「リンゴ」がある列番号を調べたかったとすると、 ・検索値に"リンゴ" ・検索範囲に表ラベルの範囲に設定すれば出てくる。