エクセルで指定回数だけ別セルに繰り返す方法

質問

色々検索してみたのですが同じ例が見つけられませんでしたのでどなたかに伺いたいです。

sheet1に
　　１
A　13
B 14
C 15

というデータがあります。

作成したいのは、別のシートに

Aを縦に13回別のセルに、（セルA1～A13すべてに"A"が記入されている状態）
Bを縦に14回別のセルに、(セルA14～A27すべてに"B"が記入されている状態）　　・・・

と表示されるシートなのですが、普通の数式、もしくはマクロをつかってできますか？
どうぞよろしくお願い致します。

回答No.1

keithin · ベストアンサー

最初の「１」って、特に説明も無いので意味はないとしてスルーします。

手順：
シート１のＡ１に「累計」、Ｂ１に「項目」、Ｃ１に「回数」と記入する
Ｂ２以下にＡ，Ｂ，Ｃ
Ｃ２以下に１３，１４，１５
をそれぞれ記入

Ａ２に
=IF(C1="","",SUM(C$1:C1,1))
と記入してＡ５以下までコピーする

シート２のＡ１に
=LOOKUP(ROW(),Sheet1!A:B)&""
と記入して以下沢山コピーする。

＃回答した通りに作成します。勝手に違う事をすると出来ません。

回答No.2

tom04

こんにちは！
VBAでの一例です。

「1」が何を意味しているのか判らないので、↓の画像のようにSheet1の2行目以降にデータがあるとします。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に↓のコードをコピー＆ペースト
→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
wS2.Range("A:A").ClearContents
On Error Resume Next
For i = 2 To wS1.Cells(Rows.Count, "A").End(xlUp).Row
wS2.Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(wS1.Cells(i, "B")) = wS1.Cells(i, "A")
Next i
wS2.Range("A1").Delete shift:=xlUp
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m