エクセルの質問です。

A1品番 B1カラー C1サイズ D1に数量
例えば、Tシャツ・ブラック・S・3
この数量でTシャツ・ブラック・Sを3行にする簡単な方法はありませんか?こんな感じです。
Tシャツ・ブラック・S・3

Tシャツ・ブラック・S
Tシャツ・ブラック・S
Tシャツ・ブラック・S

どーでしょう?

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/08/31 10:10:11
  • 終了:2006/09/01 02:47:14

回答(3件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/08/31 11:22:46

ポイント35pt

マクロですが

Sub Macro2()

'

' Macro2 Macro

'

' Keyboard Shortcut: Ctrl+w

'

b = ActiveCell.Row

c = b + 1

a = Cells(b, 4)

If a = "" Then Exit Sub

Rows(b & ":" & b).Select

Selection.Copy

Rows(c & ":" & c).Select

For d = 1 To a

Selection.Insert Shift:=xlDown

Rows(b & ":" & b).Select

Selection.Copy

Next d

For d = 1 To a

Cells(b + d, 4) = ""

Next d

End Sub

で やりたい行で Ctrl+w とすればその行の下に 指定の数量分の行が できます。

http://q.hatena.ne.jp/1156986610

id:kn1967 No.2

kn1967回答回数2915ベストアンサー獲得回数3012006/08/31 11:26:35

ポイント70pt

手順1)A列の左端に1列追加

  A列は空白 B列に品番 C列にカラー D列にサイズ E列に数量にする。

手順2)A1に数字の1を追加

手順3)A2に=A1+E1という式を入れ、A3以下にコピーする

  1 Tシャツ ブラック S 3

  4 Tシャツ ホワイト S 2

  6 Tシャツ ブラック M 3

 このようにA列には枚数分ずつ増分した数値が入る

手順4)新しいシートのA1に以下の式をいれて、B1,C1にコピーする

  =IF(ROW()>SUM(Sheet1!$E$1:$E$3),"",VLOOKUP(ROW(),Sheet1!$A$1:$D$3,COLUMN()+1,TRUE))

  Tシャツ ブラック S と表示されるはずである。

  なお、$E$3及び$D$3の3というのは手順3に示したデータが3行分だったからであり、必要分の数値を書くようにしてください。

手順5)A1~C1を下方向にコピーしてください。

  今回であれば合計枚数が8枚なのでコピーするのはA8~C8までで良いですが、もっと下までコピーしても結構です(枚数を超えた分は空白になるような式にしてあります)

http://www.relief.jp/itnote/archives/000431.php]

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 takemori 29 25 2 2006-08-31 11:29:29

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません