列のループで複数の文字列を連続分解

パイさん

「今回は、Excel VBA/マクロによって、

　Mid関数と文字列のループ処理、更に、列のループ処理を組み合わせて、

　複数列の文字列を上端から下端まで順に１文字ずつ分解してみましょう。

　予め、次のようなExcelシートを用意します。

　Excelの1行目の文字が入っているセルの最大列を取得した後、最小列から最大列にかけて、

　1行目のセルから取得した文字列を上端から下端まで順に１文字ずつ分解した文字を、

　2行目から13行目までのセルに順に格納してみましょう。

　読取行:『読取行』を『1』行目、最小列:『最小列』を『3』列、

　最大列を変数『最大列』、列を変数『Cm』、最大文字数を変数『最大文字数』、

　書込行を変数『行番号』、開始位置を変数『文字位置』としてから、プログラムコードを考えてみましょう。」

ソンくん

「『読取行』を『1』、『最小列』を『3』として定数宣言、

　『最大列』・『Cm』・『最大文字数』・『文字位置』を整数型として変数宣言。

　『行番号』を長整数型として変数宣言。

　Const 読取行 = 1

　Const 最小列 = 3

　Dim 最大列 As Integer

　Dim Cm As Integer

　Dim 最大文字数 As Integer

　Dim 行番号 As Long

　Dim 文字位置 As Integerと記述します。

　先ず、Excelの1行目の文字が入っているセルの最大列を取得します。

　最大列 = Cells(1, Columns.Count).End(xlToLeft).Column

　それから、1行目のセルの値から最大文字数を取得します。

　その後、1文字目から最大文字数まで1文字ずつカウントアップしていきながら、

　そのつど1行目のセルの値を1文字ずつ読みとり、セル(行番号, Cm)に書きこみます。

　このプログラムコードの集まりを【ブロックC】とします。

　それから、Excelの最小列:『最小列』(3列目)から最大列:『最大列』(12列目)にかけて、

　各列の処理【ブロックC】をループ処理で実行します。

　と記述します。」

パイさん

「その通りです。それでは、そのマクロを実行してみましょう。」

ソンくん

「Excelの3列目(C列)から12列目(L列)にかけて、1行目のセルから取得した文字列を

　上端から下端まで順に１文字ずつ分解した文字が、2行目から13行目までのセルに順に書きこまれました。」

パイさん

「このように、Mid関数と文字列のループ処理、更に、列のループ処理を組み合わせると、

　複数列の文字列を上端から下端まで順に１文字ずつ分解することができます。」