補講9-たった1行のコードでセルのデータを配列に投入する

この講座は有料講座です。
講座の購入後ご覧になれます。

ログインアカウントの新規作成

解説

たった1行のコードでセルのデータを配列に投入する方法があります。
DPRに従った仕事をするとき、強力な支援になる機能です。

この動画では、実務での活用例、この方法を使う場合の注意点等、関連の主要な情報をお伝えします。


実務では、データベースからデータを取得して処理する、という一連の過程で、データベース用のファイルを長時間保持しなくて済むという利点があります。
また、都度都度元データのあるシートのセルを参照するより、高速で情報を処理できます。

具体的な注意点については、動画でご確認ください。

この教材についての過去の質問・感想

12638 : 小川慶一の回答 (2020-11-25 21:47:20)

受講生 さん:

こんばんは

> 分かったつもりでいた所も改めて見直すと、新たな発見がありとても有意義な時間でした。

楽しんでいただけているようで、何よりです (^^

演習の利用権限付与しました。
https://online.pc5bai.com/package/index/85

確認いただけますでしょうか。
よろしくお願いいたします。


12634 : 受講生さんのコメント (2020-11-24 16:52:28)

いつもお世話になっております。
基礎編から発展1、フォローアップ等と再度復習し直してきました。
ようやくここまで辿り着きました。
分かったつもりでいた所も改めて見直すと、新たな発見がありとても有意義な時間でした。
今回のCurrentRegionによって、表が配列に投入された時は、衝撃でした。
私も「エクセルマクロ・発展編2演習と回答」の案内メールが確認できませんでした。お手数をお掛けいたしますが、ご確認頂けますでしょうか。
宜しくお願いいたします。


12579 : 小川慶一の回答 (2020-11-05 11:29:24)

たかちゃんさん:

おはようございます。

今、権限付与しました。ご確認ください。
https://online.pc5bai.com/package/index/85


12578 : たかちゃんさんのコメント (2020-11-05 05:15:22)

いつもお世話になっております。
「エクセルマクロ・発展編2演習と回答」の案内メールが確認できませんでした。お手数をお掛けいたしますが、ご確認頂けますでしょうか。
宜しくお願いいたします。


12488 : 小川慶一の回答 (2020-10-07 10:21:47)

受講生 さん:

お世話になります。

今、権限付与しました。ご確認ください。
https://online.pc5bai.com/package/index/85

> どの講座も新しい発見があり、勉強をするのがとても楽しいです。

それはとてもうれしいです。
ひきつづき、よろしくお願いいたします。


12485 : 受講生さんのコメント (2020-10-06 17:30:47)

いつもお世話になっております。
どの講座も新しい発見があり、勉強をするのがとても楽しいです。

実は、私も『エクセルマクロ・発展編2演習と回答』の案内メールが確認できません。
お手数ですが、ご確認いただけますでしょうか。
よろしくお願いいたします。


12336 : 小川慶一の回答 (2020-08-17 12:09:22)

受講生 さん:

お楽しみいただければと存じます。
ひきつづき、よろしくお願いいたします。

> 早速の対応ありがとうございます。
> 確認できました。


12334 : 受講生さんのコメント (2020-08-15 13:25:20)

早速の対応ありがとうございます。
確認できました。

小川慶一さん:

> 受講生 さん:
>
> おはようございます。
>
> 今、権限付与しました。
> 確認いただけますでしょか。
> https://online.pc5bai.com/package/index/85
>
> よろしく、お願いいたします。
>
>
> > 「エクセルマクロ・VBA発展編2」を購入したものです。
> > 私も『エクセルマクロ・発展編2演習と回答』の案内メールが確認できません。
> > マイページの購入講座一覧にも表示されていません。
> > 購入は大分前なのですが、巣ごもり期間を使ってやっと手がつけられました。
> > ご確認よろしくお願いします。


12333 : 小川慶一の回答 (2020-08-15 07:56:28)

受講生 さん:

おはようございます。

今、権限付与しました。
確認いただけますでしょか。
https://online.pc5bai.com/package/index/85

よろしく、お願いいたします。


> 「エクセルマクロ・VBA発展編2」を購入したものです。
> 私も『エクセルマクロ・発展編2演習と回答』の案内メールが確認できません。
> マイページの購入講座一覧にも表示されていません。
> 購入は大分前なのですが、巣ごもり期間を使ってやっと手がつけられました。
> ご確認よろしくお願いします。


12330 : 受講生さんのコメント (2020-08-14 21:50:39)

「エクセルマクロ・VBA発展編2」を購入したものです。
私も『エクセルマクロ・発展編2演習と回答』の案内メールが確認できません。
マイページの購入講座一覧にも表示されていません。
購入は大分前なのですが、巣ごもり期間を使ってやっと手がつけられました。
ご確認よろしくお願いします。


12253 : 小川慶一の回答 (2020-07-06 12:07:28)

受講生 さん:

今、権限付与しました。
確認いただけますでしょか。
https://online.pc5bai.com/package/index/85

よろしく、お願いいたします。


12252 : 受講生さんのコメント (2020-07-06 11:37:13)

お世話になっております。
vba発展編2を購入し勉強しております。enshuフォルダにある各ファイルの問題の回答はどちらで確認できますでしょうか?
ご回答お願いいたします。


12019 : 小川慶一の回答 (2020-05-04 13:17:54)

受講生 さん:

よかったです。
解答解説、けっこうガッツリ解説していますので、お楽しみいただけるかと。
ひきつづき、よろしくお願いいたします。



> 早速ご対応頂きありがとうございます。
> マイページの購入講座一覧に表示されていることを確認致しました。
> ありがとうございました。


12011 : 受講生さんのコメント (2020-05-02 10:36:24)

早速ご対応頂きありがとうございます。
マイページの購入講座一覧に表示されていることを確認致しました。
ありがとうございました。


12010 : 小川慶一の回答 (2020-05-02 10:07:42)

受講生 さん:

おはようございます。
権限付与、今行いました。確認いただけますでしょうか。

よろしくお願いいたします。


> 小川慶一様
> こちらから失礼致します。
> 「エクセルマクロ・VBA発展編2」を購入したものです。
> 私も、『エクセルマクロ・発展編2演習と回答』の案内メールを受け取っておりません。また、マイページの購入講座一覧にも表示されていないのですが、ご確認いただけますでしょうか?
> よろしくお願い致します。


12009 : 受講生さんのコメント (2020-05-02 09:52:47)

小川慶一様
こちらから失礼致します。
「エクセルマクロ・VBA発展編2」を購入したものです。
私も、『エクセルマクロ・発展編2演習と回答』の案内メールを受け取っておりません。また、マイページの購入講座一覧にも表示されていないのですが、ご確認いただけますでしょうか?
よろしくお願い致します。


11912 : 小川慶一の回答 (2020-04-19 19:12:21)

受講生 さん:

お返事ありがとうございます。
ひきつづき、よろしくお願いいたします。


> マイページの購入講座一覧に表示され動画をみることができました。
> ありがとうございます。


11909 : 受講生さんのコメント (2020-04-18 19:20:40)

マイページの購入講座一覧に表示され動画をみることができました。
ありがとうございます。


11908 : 小川慶一の回答 (2020-04-18 16:02:57)

受講生 さん:

お世話になります。
ちょっと、メール送信がうまくいっていないようです。
今、権限付与しました。
確認いただけますでしょか。
https://online.pc5bai.com/package/index/85

とりいそぎ。
よろしくお願いいたします。



> 小川慶一様
> 「エクセルマクロ・VBA発展編2」を購入したものです。
> 私も『エクセルマクロ・発展編2演習と回答』の案内メールが送付されてきておりませんし、マイページの購入講座一覧に表示されておりません。
> ご確認いただけますでしょうか?


11907 : 受講生さんのコメント (2020-04-18 15:07:17)

小川慶一様
「エクセルマクロ・VBA発展編2」を購入したものです。
私も『エクセルマクロ・発展編2演習と回答』の案内メールが送付されてきておりませんし、マイページの購入講座一覧に表示されておりません。
ご確認いただけますでしょうか?


11737 : 小川慶一の回答 (2020-01-10 10:01:45)

受講生 さん:

このたびは大変失礼いたしました。
ひきつづき、よろしくお願いいたします。

小川


> 小川慶一さん:
>
> お世話になります。
>
> マイページに出てきました。
> ありがとうございました。
>
> > 受講生 さん:
> >
> > おはようございます。
> > 申し訳ありません。再チェックしたところ、僕の設定ミスだったことに気づきました。
> >
> > 現在は解消しているかと思います。再度ご確認いただけますでしょうか。
> >
> > 大変恐縮です。
> > どうぞよろしくお願いいたします。
> >
> >
> > > 小川慶一さん:
> > >
> > > お世話になります。
> > > 貼られているリンクをクリックすると、通常のガラパゴスタディーオンライン講座のホーム画面が表示され、そこにはありません。この画面には「新しい動画を購入する」「購入済の動画を見る」「最近ページを閲覧した動画」「最新情報」「最新コメント」「無料の講座一覧」「有料の講座一覧」という枠があり、URLを見ると、「https://online.pc5bai.com/menu/menu」と表記されています。
> > > また、このホーム画面からマイページに飛んでも見当たりません。
> > > ご確認の程よろしくお願い致します。
> > >
> > >
> > > > 受講生 さん:
> > > >
> > > > お世話になります。
> > > > 以下のリンクから、いけそうでしょうか。
> > > > https://online.pc5bai.com/package/index/85
> > > >
> > > > とりいそぎ。
> > > >
> > > >
> > > >
> > > > > 小川慶一さん:
> > > > >
> > > > > ご確認ありがとうございます。
> > > > > すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
> > > > > ご確認の程よろしくお願い致します。
> > > > >
> > > > >
> > > > > > 受講生 さん:
> > > > > >
> > > > > > 本年もよろしくお願いいたします。
> > > > > >
> > > > > > お返事、遅くなりました。
> > > > > > 確認したところ、すでに権限付与されていました。
> > > > > > https://online.pc5bai.com/package/index/85
> > > > > >
> > > > > > さっそく、中身を確認いただけますでしょうか。
> > > > > > とりそぎ、よろしくお願いいたします。
> > > > > >
> > > > > >
> > > > > > > 小川慶一さん:
> > > > > > >
> > > > > > > エクセルマクロ上級3点セットを購入した者です。
> > > > > > > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > > > > > > 本年もどうぞよろしくお願い致します。
> > > > > >
> > > > > >


11736 : 受講生さんのコメント (2020-01-10 08:27:51)

小川慶一さん:

お世話になります。

マイページに出てきました。
ありがとうございました。

> 受講生 さん:
>
> おはようございます。
> 申し訳ありません。再チェックしたところ、僕の設定ミスだったことに気づきました。
>
> 現在は解消しているかと思います。再度ご確認いただけますでしょうか。
>
> 大変恐縮です。
> どうぞよろしくお願いいたします。
>
>
> > 小川慶一さん:
> >
> > お世話になります。
> > 貼られているリンクをクリックすると、通常のガラパゴスタディーオンライン講座のホーム画面が表示され、そこにはありません。この画面には「新しい動画を購入する」「購入済の動画を見る」「最近ページを閲覧した動画」「最新情報」「最新コメント」「無料の講座一覧」「有料の講座一覧」という枠があり、URLを見ると、「https://online.pc5bai.com/menu/menu」と表記されています。
> > また、このホーム画面からマイページに飛んでも見当たりません。
> > ご確認の程よろしくお願い致します。
> >
> >
> > > 受講生 さん:
> > >
> > > お世話になります。
> > > 以下のリンクから、いけそうでしょうか。
> > > https://online.pc5bai.com/package/index/85
> > >
> > > とりいそぎ。
> > >
> > >
> > >
> > > > 小川慶一さん:
> > > >
> > > > ご確認ありがとうございます。
> > > > すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
> > > > ご確認の程よろしくお願い致します。
> > > >
> > > >
> > > > > 受講生 さん:
> > > > >
> > > > > 本年もよろしくお願いいたします。
> > > > >
> > > > > お返事、遅くなりました。
> > > > > 確認したところ、すでに権限付与されていました。
> > > > > https://online.pc5bai.com/package/index/85
> > > > >
> > > > > さっそく、中身を確認いただけますでしょうか。
> > > > > とりそぎ、よろしくお願いいたします。
> > > > >
> > > > >
> > > > > > 小川慶一さん:
> > > > > >
> > > > > > エクセルマクロ上級3点セットを購入した者です。
> > > > > > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > > > > > 本年もどうぞよろしくお願い致します。
> > > > >
> > > > >


11734 : 小川慶一の回答 (2020-01-09 09:53:31)

受講生 さん:

おはようございます。
申し訳ありません。再チェックしたところ、僕の設定ミスだったことに気づきました。

現在は解消しているかと思います。再度ご確認いただけますでしょうか。

大変恐縮です。
どうぞよろしくお願いいたします。


> 小川慶一さん:
>
> お世話になります。
> 貼られているリンクをクリックすると、通常のガラパゴスタディーオンライン講座のホーム画面が表示され、そこにはありません。この画面には「新しい動画を購入する」「購入済の動画を見る」「最近ページを閲覧した動画」「最新情報」「最新コメント」「無料の講座一覧」「有料の講座一覧」という枠があり、URLを見ると、「https://online.pc5bai.com/menu/menu」と表記されています。
> また、このホーム画面からマイページに飛んでも見当たりません。
> ご確認の程よろしくお願い致します。
>
>
> > 受講生 さん:
> >
> > お世話になります。
> > 以下のリンクから、いけそうでしょうか。
> > https://online.pc5bai.com/package/index/85
> >
> > とりいそぎ。
> >
> >
> >
> > > 小川慶一さん:
> > >
> > > ご確認ありがとうございます。
> > > すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
> > > ご確認の程よろしくお願い致します。
> > >
> > >
> > > > 受講生 さん:
> > > >
> > > > 本年もよろしくお願いいたします。
> > > >
> > > > お返事、遅くなりました。
> > > > 確認したところ、すでに権限付与されていました。
> > > > https://online.pc5bai.com/package/index/85
> > > >
> > > > さっそく、中身を確認いただけますでしょうか。
> > > > とりそぎ、よろしくお願いいたします。
> > > >
> > > >
> > > > > 小川慶一さん:
> > > > >
> > > > > エクセルマクロ上級3点セットを購入した者です。
> > > > > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > > > > 本年もどうぞよろしくお願い致します。
> > > >
> > > >


11732 : 受講生さんのコメント (2020-01-09 06:22:28)

小川慶一さん:

お世話になります。
貼られているリンクをクリックすると、通常のガラパゴスタディーオンライン講座のホーム画面が表示され、そこにはありません。この画面には「新しい動画を購入する」「購入済の動画を見る」「最近ページを閲覧した動画」「最新情報」「最新コメント」「無料の講座一覧」「有料の講座一覧」という枠があり、URLを見ると、「https://online.pc5bai.com/menu/menu」と表記されています。
また、このホーム画面からマイページに飛んでも見当たりません。
ご確認の程よろしくお願い致します。


> 受講生 さん:
>
> お世話になります。
> 以下のリンクから、いけそうでしょうか。
> https://online.pc5bai.com/package/index/85
>
> とりいそぎ。
>
>
>
> > 小川慶一さん:
> >
> > ご確認ありがとうございます。
> > すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
> > ご確認の程よろしくお願い致します。
> >
> >
> > > 受講生 さん:
> > >
> > > 本年もよろしくお願いいたします。
> > >
> > > お返事、遅くなりました。
> > > 確認したところ、すでに権限付与されていました。
> > > https://online.pc5bai.com/package/index/85
> > >
> > > さっそく、中身を確認いただけますでしょうか。
> > > とりそぎ、よろしくお願いいたします。
> > >
> > >
> > > > 小川慶一さん:
> > > >
> > > > エクセルマクロ上級3点セットを購入した者です。
> > > > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > > > 本年もどうぞよろしくお願い致します。
> > >
> > >


11730 : 小川慶一の回答 (2020-01-08 10:56:34)

受講生 さん:

お世話になります。
以下のリンクから、いけそうでしょうか。
https://online.pc5bai.com/package/index/85

とりいそぎ。



> 小川慶一さん:
>
> ご確認ありがとうございます。
> すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
> ご確認の程よろしくお願い致します。
>
>
> > 受講生 さん:
> >
> > 本年もよろしくお願いいたします。
> >
> > お返事、遅くなりました。
> > 確認したところ、すでに権限付与されていました。
> > https://online.pc5bai.com/package/index/85
> >
> > さっそく、中身を確認いただけますでしょうか。
> > とりそぎ、よろしくお願いいたします。
> >
> >
> > > 小川慶一さん:
> > >
> > > エクセルマクロ上級3点セットを購入した者です。
> > > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > > 本年もどうぞよろしくお願い致します。
> >
> >


11728 : 受講生さんのコメント (2020-01-08 06:04:40)

小川慶一さん:

ご確認ありがとうございます。
すでに権限付与されているとのことですが、マイページの購入講座一覧を探しても「エクセルマクロ・VBA発展編2演習と回答」という講座は見当たりませんでした。どこから入るのでしょうか。
ご確認の程よろしくお願い致します。


> 受講生 さん:
>
> 本年もよろしくお願いいたします。
>
> お返事、遅くなりました。
> 確認したところ、すでに権限付与されていました。
> https://online.pc5bai.com/package/index/85
>
> さっそく、中身を確認いただけますでしょうか。
> とりそぎ、よろしくお願いいたします。
>
>
> > 小川慶一さん:
> >
> > エクセルマクロ上級3点セットを購入した者です。
> > こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> > 本年もどうぞよろしくお願い致します。
>
>


11724 : 小川慶一の回答 (2020-01-04 08:05:16)

受講生 さん:

本年もよろしくお願いいたします。

お返事、遅くなりました。
確認したところ、すでに権限付与されていました。
https://online.pc5bai.com/package/index/85

さっそく、中身を確認いただけますでしょうか。
とりそぎ、よろしくお願いいたします。


> 小川慶一さん:
>
> エクセルマクロ上級3点セットを購入した者です。
> こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
> 本年もどうぞよろしくお願い致します。


11720 : 受講生さんのコメント (2020-01-01 05:51:26)

小川慶一さん:

エクセルマクロ上級3点セットを購入した者です。
こちらの『エクセルマクロ・発展編2演習と回答』の案内メールを探してみたのですが、見当たりませんでした。お手数ですが再送いただけるとありがたいです。
本年もどうぞよろしくお願い致します。


> ゲストさん:
>
> 新講座『エクセルマクロ・発展編2演習と回答』プレゼント応募用アンケートについてはご存知でしょうか。
>
> 発展編2講座を受講のうえアンケートにお応えいただいた方向けに、動画21本、4時間15分相当の講座「エクセルマクロ・VBA発展編2演習と回答」を無料でさしあげております。
>
> 「Enshu」の解答は、「エクセルマクロ・VBA発展編2演習と回答」に含まれております。
>
> 上記について、講座購入時に案内メールが行っておりますでしょうか。
> もし受け取れていないというようでしたら再送いたしますので、ご連絡をいただければと存じます。
>
>
> > 「Enshu」の解答は、どこにありますか


11660 : 小川慶一の回答 (2019-11-14 06:42:27)

受講生 さん:

「エクセルマクロ・VBA発展編2演習と回答」という講座があります。
https://online.pc5bai.com/package/index/85

先行して権限付与しました。
ご確認ください。

とりいそぎ。

小川


> お世話になっております。
> ガラパゴスタディー事務局の本間と申します。
>
> 先ほど、ご購入時の案内メールを再送しました。
>
> 件名は「【重要】[5bai]発展編2の追加教材を無料で取得する方法について」
> というものです。
>
> メール本文にて、アンケートページをご案内していますので、
> そちらにご回答いただき、『エクセルマクロ・発展編2演習と回答』をお受け取りください。
>
> どうぞ、よろしくお願いいたします。


11659 : ガラパゴスタディー本間の回答 (2019-11-13 09:50:30)

お世話になっております。
ガラパゴスタディー事務局の本間と申します。

先ほど、ご購入時の案内メールを再送しました。

件名は「【重要】[5bai]発展編2の追加教材を無料で取得する方法について」
というものです。

メール本文にて、アンケートページをご案内していますので、
そちらにご回答いただき、『エクセルマクロ・発展編2演習と回答』をお受け取りください。

どうぞ、よろしくお願いいたします。


11658 : 受講生さんのコメント (2019-11-13 04:41:46)

ご返信ありがとうございます。

購入時の案内メールを探してみたのですが、見つからなかったので、
お手数ですが再送していただけるとありがたいです。


11657 : 小川慶一の回答 (2019-11-12 12:09:37)

ゲストさん:

新講座『エクセルマクロ・発展編2演習と回答』プレゼント応募用アンケートについてはご存知でしょうか。

発展編2講座を受講のうえアンケートにお応えいただいた方向けに、動画21本、4時間15分相当の講座「エクセルマクロ・VBA発展編2演習と回答」を無料でさしあげております。

「Enshu」の解答は、「エクセルマクロ・VBA発展編2演習と回答」に含まれております。

上記について、講座購入時に案内メールが行っておりますでしょうか。
もし受け取れていないというようでしたら再送いたしますので、ご連絡をいただければと存じます。


> 「Enshu」の解答は、どこにありますか


11656 : ゲストさんのコメント (2019-11-12 06:06:51)

「Enshu」の解答は、どこにありますか


11412 : 小川慶一の回答 (2019-05-19 02:28:00)

田中 宏明さん:

> 実務で活用できそうな事例が思い当たりませんが、

だよな...と思いつつお返事を考えていたら、タイミングを逃してしまいました。

> 第一引数の行番号をRedim Preserveできない場合、縦横入替で 第二引数の行番号をRedim Preserveできることくらいでしょうか。

そういう形で困ったこと、ないですね。
もしも第一引数の要素数で困ることがあるなら、そもそも、元データの形とかに問題ありそうに思います。
DPRから見直したいですね。(Pが大変なら、たいてい、Dがおかしいか、Rで色気を出しすぎ)


> 配列を研究し、「二次元配列の縦横入替」を知りました。
> Excel自体のTranspose関数を呼び出すことで実現。Debug.Printで結果が同じになるので、うまくいっているようです。
>
> 実務で活用できそうな事例が思い当たりませんが、第一引数の行番号をRedim Preserveできない場合、縦横入替で 第二引数の行番号をRedim Preserveできることくらいでしょうか。

Sub Sample9_Transpose()
    Dim vList As Variant
    vList = Range("B4").CurrentRegion
    
    Dim c As Long
    'インデックスは1から!
    '第一引数が行番号!
    '表ではタイトルも含まれてしまうのでので注意!
    For c = LBound(vList, 1) To UBound(vList, 1)
        Debug.Print vList(c, 1), vList(c, 2), vList(c, 7)
    Next
    
    Debug.Print vbNewLine
    Dim v2List As Variant
    '二次元配列の縦横を入れ替え
    'インデックスは1から!
    '第一引数が行番号から列番号に変更される!
    v2List = Application.WorksheetFunction.Transpose(vList)
    For c = LBound(v2List, 2) To UBound(v2List, 2)
        Debug.Print v2List(1, c), v2List(2, c), v2List(7, c)
    Next
End Sub


11398 : 田中 宏明さんのコメント (2019-05-11 17:08:57)

配列を研究し、「二次元配列の縦横入替」を知りました。
Excel自体のTranspose関数を呼び出すことで実現。Debug.Printで結果が同じになるので、うまくいっているようです。

実務で活用できそうな事例が思い当たりませんが、第一引数の行番号をRedim Preserveできない場合、縦横入替で 第二引数の行番号をRedim Preserveできることくらいでしょうか。

Sub Sample9_Transpose()
    Dim vList As Variant
    vList = Range("B4").CurrentRegion
    
    Dim c As Long
    'インデックスは1から!
    '第一引数が行番号!
    '表ではタイトルも含まれてしまうのでので注意!
    For c = LBound(vList, 1) To UBound(vList, 1)
        Debug.Print vList(c, 1), vList(c, 2), vList(c, 7)
    Next
    
    Debug.Print vbNewLine
    Dim v2List As Variant
    '二次元配列の縦横を入れ替え
    'インデックスは1から!
    '第一引数が行番号から列番号に変更される!
    v2List = Application.WorksheetFunction.Transpose(vList)
    For c = LBound(v2List, 2) To UBound(v2List, 2)
        Debug.Print v2List(1, c), v2List(2, c), v2List(7, c)
    Next
End Sub


3日がかりのその仕事、3分で終わらせる方法教えます。ガラパゴスタディーオンライン講座 ユーザー登録

本講座の動画一覧

  1. 【動画1】 式と戻り値1-データ型のおさらい
    【動画1】 式と戻り値1-データ型のおさらい 未習得
  2. 【動画2】 式と戻り値2-「式」と「戻り値」
    【動画2】 式と戻り値2-「式」と「戻り値」 未習得
  3. 【動画3】 式と戻り値3-「式」と「戻り値のデータ型」
    【動画3】  式と戻り値3-「式」と「戻り値のデータ型」 未習得
  4. 【動画4】 式と戻り値4-「式」とは(その1)
    【動画4】 式と戻り値4-「式」とは(その1) 未習得
  5. 【動画5】 式と戻り値5-「式」とは(その2)
    【動画5】 式と戻り値5-「式」とは(その2) 未習得
  6. 【動画6】 式と戻り値6-戻り値を返す式、戻り値を返さない式
    【動画6】  式と戻り値6-戻り値を返す式、戻り値を返さない式 未習得
  7. 【動画7】 コレクションとインデックス
    【動画7】  コレクションとインデックス 未習得
  8. 【動画8】 配列
    【動画8】 配列 未習得
  9. 【動画9】 静的配列
    【動画9】 静的配列 未習得
  10. 【動画10】 動的配列1-動的配列の基本
    【動画10】 動的配列1-動的配列の基本 未習得
  11. 【動画11】 動的配列2-Preserveキーワード
    【動画11】 動的配列2-Preserveキーワード 未習得
  12. 【動画12】 動的配列3-演習
    【動画12】 動的配列3-演習 未習得
  13. 【動画13】 多次元配列の基本
    【動画13】 多次元配列の基本 未習得
  14. 【動画14】 多次元動的配列
    【動画14】 多次元動的配列 未習得
  15. 【動画15】 多次元配列のサイズを調べる
    【動画15】 多次元配列のサイズを調べる 未習得
  16. 【動画16】 配列操作の便利関数、オプション、その他
    【動画16】  配列操作の便利関数、オプション、その他 未習得
  17. 【動画17】 連想配列1-Dictionaryオブジェクトの仕様
    【動画17】 連想配列1-Dictionaryオブジェクトの仕様 未習得
  18. 【動画18】 連想配列2-Dictionaryオブジェクトの使用例
    【動画18】 連想配列2-Dictionaryオブジェクトの使用例 未習得
  19. 【動画19】 連想配列3-Microsoft Scripting Runtimeのへの参照設定
    【動画19】 連想配列3-Microsoft Scripting Runtimeのへの参照設定 未習得
  20. 【動画20】 「名前付き引数」と「名前なし引数」
    【動画20】 「名前付き引数」と「名前なし引数」 未習得
  21. 【動画21】 省略可能な引数とその初期値
    【動画21】 省略可能な引数とその初期値 未習得
  22. 【動画22】 引数のデータ型
    【動画22】 引数のデータ型 未習得
  23. 【動画23】 Functionプロシージャ
    【動画23】 Functionプロシージャ 未習得
  24. 【動画24】 引数がひとつまたは複数のFunctionプロシージャ
    【動画24】 引数がひとつまたは複数のFunctionプロシージャ 未習得
  25. 【動画25】 Functionプロシージャ演習中
    【動画25】 Functionプロシージャ演習中 未習得
  26. 【動画26】 引数として配列を受け取るFunctionプロシージャ
    【動画26】 引数として配列を受け取るFunctionプロシージャ 未習得
  27. 【動画27】 引数を受け取らないSubプロシージャと引数つきSubプロシージャ
    【動画27】 引数を受け取らないSubプロシージャと引数つきSubプロシージャ 未習得
  28. 【動画28】 Subプロシージャの基本構造
    【動画28】 Subプロシージャの基本構造 未習得
  29. 【動画29】 モジュールレベル変数との使い分け
    【動画29】 モジュールレベル変数との使い分け 未習得
  30. 【動画30】 補講1-ディクショナリーオブジェクトのさらなる活用
    【動画30】 補講1-ディクショナリーオブジェクトのさらなる活用 未習得
  31. 【動画31】 補講2-ディクショナリーオブジェクトの .Count プロパティ
    【動画31】 補講2-ディクショナリーオブジェクトの .Count プロパティ 未習得
  32. 【動画32】 補講3-連想配列によるオブジェクトへの参照設定 - 新しいキーに設定する場合
    【動画32】 補講3-連想配列によるオブジェクトへの参照設定 - 新しいキーに設定する場合 未習得
  33. 【動画33】 補講4-連想配列によるオブジェクトへの参照設定 - 既存の値を上書きする場合
    【動画33】 補講4-連想配列によるオブジェクトへの参照設定 - 既存の値を上書きする場合 未習得
  34. 【動画34】 補講5-複数セルの集合を作るための便利なメソッド2つ
    【動画34】 補講5-複数セルの集合を作るための便利なメソッド2つ 未習得
  35. 【動画35】 補講6-連想配列演習-取引先ごとに取引金額の合計を算出する
    【動画35】 補講6-連想配列演習-取引先ごとに取引金額の合計を算出する 未習得
  36. 【動画36】 補講7-ウォッチ式の活用
    【動画36】 補講7-ウォッチ式の活用 未習得
  37. 【動画37】 補講8-ウォッチ式で配列の状態を確認する
    【動画37】 補講8-ウォッチ式で配列の状態を確認する 未習得
  38. 【動画38】 補講9-たった1行のコードでセルのデータを配列に投入する
    【動画38】 補講9-たった1行のコードでセルのデータを配列に投入する 未習得

塾長 小川慶一

メニュー

コメント紹介

もっと見る

ページの先頭へ