Home » エクセルマクロ・Excel VBAの使い方 » 配列 » 1次元配列のデータを縦方向に入力－WorksheetFunction.Transpose

1次元配列のデータを縦方向に入力－WorksheetFunction.Transpose

対象：Excel 2010, Excel 2013, Windows版Excel 2016

Excel VBAを使って、配列からセルに一気にデータを入力するには、基本的には2次元配列を使う必要があります。

1次元配列のデータも横方向ならば入力できる

しかし横方向にデータを入力するなら、1次元配列でもOKです。

［スポンサードリンク］
例えば以下のSubプロシージャを実行すると、A1:E1セルに、100・200・300・400・500と整数が入力されます。
Sub 一次元配列からセルにデータ入力_横方向()
　Dim arr(1 To 5) As Long
　Dim i As Long
　
　For i = LBound(arr) To UBound(arr)
　　arr(i) = i * 100
　Next i
　
　Range("A1", Cells(1, UBound(arr))).Value = arr
End Sub

1次元配列のデータを縦方向に入力するにはWorksheetFunction.Transpose

これをA1:A5セルに入力する場合、本来的には2次元配列を用意しなければならないのですが、WorksheetFunction.Transposeメソッドを使うことで、1次元配列のデータを縦方向に入力することができます。

以下のSubプロシージャを実行すると、A1:A5セルに、100・200・300・400・500を入力できます。

Sub 一次元配列からセルにデータ入力_縦方向()
　Dim arr(1 To 5) As Long
　Dim i As Long

　For i = LBound(arr) To UBound(arr)
　　arr(i) = i * 100
　Next i

　Range("A1", Cells(UBound(arr), 1)).Value _
　　　= WorksheetFunction.Transpose(arr)
End Sub

要素数は65536まで

この場合に、要素数がいくつまでWorksheetFunction.Transposeメソッドで方向を変更できるのかテストしてみたところ、65536までOKでした。

上記のSubプロシージャで、配列の宣言が、
　　Dim arr(1 To 65536) As Long
までは、期待どおりA1:A65536セルにデータを入力できますが、
　　Dim arr(1 To 65537) As Long
にするとダメです。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » 1次元配列のデータを縦方向に入力－WorksheetFunction.Transpose

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「配列」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.