Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA 試してみた 職場で、このような相談を受けた。 ある表からある帳票に、データを10件ずつ貼り付けたい。 毎回、データ数は異なる。５件の時もあれば、55件の時もある。 パソコンが無かったので、この時はホワイトボードに書いて説明した。 本当にそれでうまくいくか、簡易的に検証してみる。作戦は、こうだ。 転記するデータをまず全て、一つの配列に格納する。 上記配列から、一行ずつスライスして取り出す。 取り出した配列を順次、帳票に貼り付ける。１０件貼り付けた時点で、シートを追加した一行目から貼り付け再開。 上記にのっとって、作成したのがこちら。 Sub Sample() Dim SourceArray() As Var… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F11%2F01%2F235119" title="１０件転記したら、シートを変えて転記再開。 - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20191101/20191101233910.png Hatena Blog https://hatena.blog 2019-11-01 23:51:19 rich https://infoment.hatenablog.com/entry/2019/11/01/235119 1.0 100%