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

パイさん

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

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

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

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

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

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

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

　読込列:『ERw』を『1』行目、最小列:『MinCm』を『3』列、

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

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

ソンくん

「『ERw』を『1』、『MinCm』を『3』として定数宣言、

　『MaxCm』・『Cm』・『MaxStr』・『StP』を整数型として変数宣言。

　『WRw』を長整数型として変数宣言。

　Const ERw = 1

　Const MinCm = 3

　Dim MaxCm As Integer

　Dim Cm As Integer

　Dim MaxStr As Integer

　Dim WRw As Long

　Dim StP As Integerと記述します。

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

　MaxCm = Range("IV1").End(xlToLeft).Column

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

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

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

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

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

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

　と記述します。」

パイさん

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

ソンくん

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

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

パイさん

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

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