Excelで同じ数ごと列を増やしたい

Question

こんにちわ

Excelで同じ数ごと列を増やしたいです。


![イメージ説明](4a84fc753b3b1751362153ce5c768283.png)

この左側にあるデータを、右側のようにしたいです
連続する数字を増やすやり方はでてくるのですが、
連続しないで、参照させて同じ数ずつ行を増やすにはどうしたらよいでしょうか？

よろしくお願いいたします。


みなさまたくさんの回答ありがとうございました！

Accepted Answer

方法１：シート上の操作で処理
---
少し面倒ですが、以下手順で目的の形にすることができます。

**①元データに連番をつける**
 例：C列に連番列を作成
```
列A, B, C
------------
 1,ああ,1
65,いい,2
 8,うう,3
48,ええ,4
```

**②連番列まで含めてデータ範囲をコピー**
 上記例ではA1～C4をコピー

**③貼り付けたい列に貼り付ける**
 例：E列に貼り付け
 
```
列A, B, C, D, E, F, G
----------------------
 1,ああ,1, , 1,ああ,1
65,いい,2, ,65,いい,2
 8,うう,3, , 8,うう,3
48,ええ,4, ,48,ええ,4
```

**④貼り付けたデータの下にさらに貼り付け（ｘ２）**
 例：E列に貼り付け
```
列A, B, C, D, E, F, G
----------------------
 1,ああ,1, , 1,ああ,1
65,いい,2, ,65,いい,2
 8,うう,3, , 8,うう,3
48,ええ,4, ,48,ええ,4
  ,    , , , 1,ああ,1
  ,    , , ,65,いい,2
  ,    , , , 8,うう,3
  ,    , , ,48,ええ,4
  ,    , , , 1,ああ,1
  ,    , , ,65,いい,2
  ,    , , , 8,うう,3
  ,    , , ,48,ええ,4
```

**⑤貼り付け先の連番列で並べ替え**
 例：E～G列をG列で並べ替え
 
```
列A, B, C, D, E, F, G
----------------------
 1,ああ,1, , 1,ああ,1
65,いい,2, , 1,ああ,1
 8,うう,3, , 1,ああ,1
48,ええ,4, ,65,いい,2
  ,    , , ,65,いい,2
  ,    , , ,65,いい,2
  ,    , , , 8,うう,3
  ,    , , , 8,うう,3
  ,    , , , 8,うう,3
  ,    , , ,48,ええ,4
  ,    , , ,48,ええ,4
  ,    , , ,48,ええ,4
```

**⑥連番列をクリア**
 例：C列・G列をクリア
```
列A, B, C, D, E, F, G
----------------------
 1,ああ, , , 1,ああ,
65,いい, , , 1,ああ,
 8,うう, , , 1,ああ,
48,ええ, , ,65,いい,
  ,    , , ,65,いい,
  ,    , , ,65,いい,
  ,    , , , 8,うう,
  ,    , , , 8,うう,
  ,    , , , 8,うう,
  ,    , , ,48,ええ,
  ,    , , ,48,ええ,
  ,    , , ,48,ええ,
```

これでできあがりです。


方法２：VBAで処理
---
VBAの場合、以下のような処理手順のマクロを組めば実現できます。

**①出力行の変数を初期化**
```
lRow = 1
```

**②対象行をループ処理**
```
For Each rng In sht.Range("A1:A4")
 ～
Next
```

**③（②ループ内）１行ごとにさらに３回ループ**
```
For iCnt = 1 To 3
 ～
Next
```

**④（③ループ内）対象行の内容を、出力先にコピー**
```
sht.Cells(lRow, 4) = sht.Cells(rng.Row, 1)  '取得行・A列のセル内容を、出力行・D列にコピー
```

**⑤（③ループ内）出力行をカウントアップ**
```
lRow = lRow + 1
```

以上のような処理を行うコードを作成すれば目的の結果が得られると思います。
コード全体は提示しませんが、頑張ってみてください。

Answer

まだ上がってない手法ということで式と関数を使って。

INDIRECT関数を使う方法
---

INDIRECT()という、**文字列で指定された**セルの参照を行う関数があります。
以下の2つの式は、いずれもA1セルに入っている内容を参照します。

```
//通常のセル参照
=A1

//INDIRECTを使ったセル参照
=INDIRECT("A1")
```

この「1」の部分を現在の行を取得するROW()関数と、切り上げを行うROUNDUP()関数を組み合わせて動的に変動させていけば、期待通りの結果になるかと思います。

```
=INDIRECT("A" & ROUNDUP(ROW()/3, 0))

```

関数の意味がわかれば式の内容は単純な計算なので、詳しい仕組みは実際にデータを入れて確かめて下さい。

Answer

手動でやることを前提に記載します。

１：C列に順番を追加して、丸ごとコピー
```ここに言語を入力
列A B  C
------------
 1 ああ 1
65 いい 2
 8 うう 3
48 ええ 4
```

２:必要回数分コピー（例：３回）
```ここに言語を入力
列A B  C
------------
 1 ああ 1
65 いい 2
 8 うう 3
48 ええ 4
 1 ああ 1
65 いい 2
 8 うう 3
48 ええ 4
 1 ああ 1
65 いい 2
 8 うう 3
48 ええ 4
```

３：C列をメインにフィルターもしくは並べ替え機能で昇順にしてC列削除
```ここに言語を入力
列A B 
------------
 1 ああ
 1 ああ
 1 ああ
65 いい
65 いい
65 いい
 8 うう
 8 うう
 8 うう
48 ええ
48 ええ
48 ええ
```
EXCELを活用するならこうやるかなーと思いました。

参考になれば幸いです。

Answer

1．コピーしたい分だけ行を増やす(行選択してCtrl+Shift+＋)
2．コピーしたい行の部分を選択し、「右クリックで」ドラッグ
3．ドラッグし終わるとメニューが開くので、「セルのコピー」を選択

![イメージ説明](3325a182b1f244830dcaac1604720b12.png)

![イメージ説明](d0f0089e19e5de82a3a88a749961ab83.png)

プログラム関係ないからどうなんだろうとは思いますけど。。どうなんだろう。