エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Excel で行を指定回数だけコピーしたい
>VBAやマクロが使えるといいのですが。 VBAでやれば簡単なロジックで出来るが、VBAの経験はあるのかな。... >VBAやマクロが使えるといいのですが。 VBAでやれば簡単なロジックで出来るが、VBAの経験はあるのかな。 (A)E列に繰り返し数があると仮定している。 (B)2003までなら、データ数は65536行以内と仮定になる。 (E列の繰り返し数の合計が) 標準モジュールに Sub test01() Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Worksheets("sheet1") Set sh2 = Worksheets("sheet2") d = sh1.Range("A65536").End(xlUp).Row MsgBox d k = 1 For i = 1 To d For j = 1 To sh1.Cells(i, "E") sh1.Range(sh1.Cells(i, "A"), sh1.Cells(i, "E")).C