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

パイさん

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

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

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

　サンプルデータとして次のようなExcelシートを用意します。」

パイさん

「Excelの3行目に固定して、A列のセルから取得した文字列を左端から右端まで順に１文字ずつ分解した文字を、

　B列からM列までのセルに順に格納してみましょう。

　読取列:『読取列』をA列つまり『1』列、読取行:『行番号』を『3』行目、最大文字数を変数『最大文字数』、

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

ソンくん

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

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

　Const 読取列 = 1

　Const 行番号 = 3

　Dim 最大文字数 As Integer

　Dim 列番号 As Integer

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

　

　先ず、A列のセルの値から最大文字数を取得します。

　最大文字数 = Len(Cells(行番号, 読取列).Value)

　

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

　そのつどA列のセルの値を１文字ずつ読みとり、セル(REw, 列番号)に書きこみます。

　For 文字位置 = 1 To 最大文字数

　　　列番号 = 文字位置 + 1

　　　Cells(行番号, 列番号).Value = Mid(Cells(行番号, 読取列).Value, 文字位置, 1)

　Next 文字位置

　と記述します。」

パイさん

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

ソンくん

「2列目(B列)から11列目(K列)までのセルに『セ』『ル』『に』『文』『字』『を』『書』『き』『こ』『む』が、

　書きこまれました。」

2. 行のループでセルの文字列を１文字ずつ連続分解

パイさん

「Excelの3行目から12行目にかけて、A列のセルから取得した文字列を

　左端から右端まで順に１文字ずつ分解した文字を、B列からM列までのセルに順に格納してみましょう。

　読取列:『読取列』をA列つまり『1』列、

　最小行:『最小行』を『3』行目、

　最大行:『最大行』を『12』行目、

　読取行を変数『行番号』、

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

　書込列を変数『列番号』、

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

ソンくん

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

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

　Const 読取列 = 1

　Const 最小行 = 3

　Const 最大行 = 12

　Dim 行番号 As Integer

　Dim 最大文字数 As Integer

　Dim 列番号 As Integer

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

パイさん

「ほぼＯＫなんですが、一点アドバイスします。

　読取行:『行番号』を整数型『Integer』として変数宣言していますが、

　整数型『Integer』では -32,768～32,767の範囲の数しか格納できません。

　つまり、『Integer』では 32,767行までしか格納できません。

　しかし、Excelの最大行数は、32,767行より、はるかに多いです。

　Excel2003までは、最大行数=65,536行だったのですが、

　Excel2007からは、最大行数=1,048,576行となっています。

　そのため、もしマクロでExcelの行数が32,767行を超えるようなデータを扱うときは、

　『Integer』ではデータを格納できなくなってしまいます。

　だけど、長整数型『long』なら -2,147,483,648～2,147,483,647の範囲まで格納できます。

　つまり、『long』なら 2,147,483,647行まで格納できます。

　Excelの行数が32,767行を超えるようなケースもあるかもしれないので、

　行に関して変数宣言するときは、長整数型『long』をつかうことをお薦めします。」

ソンくん

「わかりました。読取行:『行番号』は、長整数型『long』として変数宣言します。

　Dim 行番号 As long

　と記述します。」

パイさん

「次に、A列のセルの値から最大文字数を取得します。

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

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

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

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

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

　そこで、【ブロックA】をはさむように、

　【ブロックA】の前後にFor 行番号 = 最小行 To 最大行とNext 行番号を

　追加します。

　と記述します。」

パイさん

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

ソンくん

「Excelの3行目から12行目にかけて、A列のセルから取得した文字列を左端から右端まで

　順に１文字ずつ分解した文字が、2列目(B列)から13列目(M列)までのセルに順に書きこまれました。」

3. 最大行の取得後、行のループでセルの文字列を１文字ずつ連続分解

パイさん

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

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

　A列のセルから取得した文字列を左端から右端まで順に１文字ずつ分解した文字を、

　B列からM列までのセルに順に格納してみましょう。

　読取列:『読取列』をA列つまり『1』列、最小行:『最小行』を『3』行目、

　最大行を変数『最大行』、読取行を変数『行番号』、最大文字数を変数『最大文字数』、

　書込列を変数『列番号』、開始位置を変数『文字位置』としてから、ソースコードを考えてみましょう。」

ソンくん

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

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

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

　Const 読取列 = 1

　Const 最小行 = 3

　Dim 最大行 As long

　Dim 行番号 As long

　Dim 最大文字数 As Integer

　Dim 列番号 As Integer

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

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

　最大行 = Cells(Rows.Count, "A").End(xlUp).Row

　

　次に、A列のセルの値から最大文字数を取得します。

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

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

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

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

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

　と記述します。」

パイさん

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

ソンくん

「Excelの3行目から12行目にかけて、A列のセルから取得した文字列を2列目(B列)から13列目(M列)までのセルに

　左端から右端まで順に１文字ずつ分解した文字が、

　順に書きこまれました。」

パイさん

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

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