1文字づつ」といった検索で、このサイト・インストラクターのネタ帳へのアクセスが、時々あることに気づきました。Applications)で、何らかの文字列を一文字ずつ配列変数に代入・格納するにはどうすればいいのかを探している方による検索です。[スポンサードリンク]アクティブセルの文字列を一文字ずつ配列に格納するサンプルマクロ「配列にセルの文字を一文字ずつ割り当てる」といった検索でのアクセスもありますので、ここではアクティブセルの値を一文字ずつ配列に代入するサンプルマクロをご紹介しておきます。Subの直前のStop文で、ステップ実行モードになります。この状態でローカルウィンドウを表示すれば、下図のように、アクティブセル内の文字列が一文字ずつ配列に格納されていることを確認できます。ActiveCell.Value配列のサイズを決めます。Len(str))Excelマクロの場合、配列の添字の最小値は「1」のほうが扱いやすいことが多いので、ここでは添字の最小値を「1」、アクティブセルの値の文字数(Len(str))を添字の最大値としています。UBound(arr)Mid関数を使って、1文字ずつ配列変数・arr()に代入しています。1)添字を0からにした場合のサンプルマクロExcelマクロの場合は、上記のように配列変数の添字の最小値を「1」にするほうが扱いやすいことが多いと思いますが、添字を「0」からにする場合は、以下のようなマクロです。1)というコードでご紹介しています。インストラクターのネタ帳アクティブセルのデータを2文字ずつ配列変数に格納・代入するExcel(エクセル)マクロをご紹介しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。