Excel - 指定した回数だけ行を繰り返す

Excelワークシートの行は、ユーザー定義関数を使用して、指定した回数だけ繰り返すことができます。 指定した回数だけ行繰り返すようにユーザー定義関数を書くことができます。 このような関数を作成するには、if-then-else条件やdo whileループなど、プログラミングの概念に関するある程度の知識が必要です。 Selection.insertコマンドを使用して、Excel Officeソフトウェアのワークシートに行を挿入できます。 コードスニペットはワークシートで自由に使用できるため、コードを最初から作成する必要はありません。 ただし、 行を指定された回数繰り返すためのユーザー定義関数またはサブルーチンが正しい場所に挿入されるようにする必要があります。

  • 問題
  • 溶液
  • 注意

問題

誰もがその行に存在するセルに指定された回数でスプレッドシートの行を繰り返す方法を知っていますか?

すなわちこの表から:

 列A列B

ピーター3

ジェームズ7

ダビデ4

私はこのテーブルを作り出す必要があります:

 列A列B

ピーター3

ピーター3

ピーター3

ジェームズ7

ジェームズ7

ジェームズ7

ジェームズ7

ジェームズ7

ジェームズ7

ジェームズ7

ダビデ4

ダビデ4

ダビデ4

ダビデ4

これを行う簡単な方法についてのアイデアはありますか?

溶液

これを試して:

 Sub CopyData()

Dim lRow As Long

バリアントとしてDim RepeatFactor

l行= 1

間にする(Cells(lRow、 "A") "")

RepeatFactor =セル数(lRow、 "B")

((RepeatFactor> 1)かつIsNumeric(RepeatFactor))の場合

範囲(セル(lRow、 "A")、セル(lRow、 "B"))コピー

範囲(セル(lRow + 1、 "A")、セル(lRow + RepeatFactor - 1、 "B"))を選択します。

Selection.Insert Shift:= xlDown

lRow = lRow + RepeatFactor - 1

終了の場合

lRow = lRow + 1

ループ

終了サブ

注意

フォーラムでこのヒントを寄せてくれたrizvisa1に感謝します。
前の記事 次の記事

トップのヒント