Excel VBA > tips 高速化 > シートにVariant型の配列データを一気に展開(出力)する

シートにVariant型の配列データを一気に展開(出力)する

できるだけ簡素化して展開する

2次元配列はシートだけでなくリストボックスなどでもよく使います。
そこで今回はできるだけ簡単にループを使わないで一気にシートへ書き込める方法を紹介します。

Cells(1, 1).Resize(UBound(var, 1), UBound(var, 2)).Value = var

ポイントはVariant変数「var」の行の最大値、列の最大値を取得し、それをResizeで使用する点です。

Sub Variant型の配列をシートに出力()

    Dim var As Variant

    ‘===============================
    ‘シート1のデータをシート2に出力
    ‘===============================

    ‘シート1をバリアント配列「var」へ格納
    var = Worksheets(1).Cells(1, 1).CurrentRegion.Value

    ‘シート2へ出力
    Worksheets(2).Cells(1, 1).Resize(UBound(var, 1), UBound(var, 2)).Value = var

End Sub

開始インデックスに注意

Variant型の配列に入れるときに、インデックスが0から始まる場合と1から始まる場合があるので注意です。
気を付けて「ubound(var,1)+1」しておかないと1行(1列)少ない値が出力されます。

◆お問い合わせ◆

原則3時間以内にご連絡

【お急ぎのお客様もご安心を】
お問い合わせフォーム(SSL対応)
弊社ではお急ぎのお客差にもご対応できるよう、迅速な返信を行っております。
特にお問い合わせフォームの場合は業務時間外でもスタッフが確認できればご連絡するという体制をとっております。

◆VBAツール・システム◆

Excel VBAの基本・事例

【VBAを思い通りに操ろう】
VBAはExcelだけでなく、Word、AccessなどMicrosoft Officeで共通して使えるプログラム言語です。細かい部分ではExcelで使えてWordで使えないなどもありますが、文法的には同じです。
こちらのページではExcel VBAの基本やツール、システムの紹介しております。

Excel VBAのお勉強

◆Excelレッスン◆

Excelについて勉強をしたい方

【Excelをとにかく勉強したい】
Excelについて分からないところだけを優先にしりたい、教えてほしい等。
授業のテキストの通りではなく、必要なところだけを効率的に勉強されたい方などは下記のページからご覧ください。

Excel レッスン