人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

どーでしょう?



●質問者: saetel
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:A1 D1 Tシャツ エクセル カラー
○ 状態 :終了
└ 回答数 : 2/3件

▽最新の回答へ

1 ● きゃづみぃ
●35ポイント

マクロですが

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


2 ● kn1967
●70ポイント

手順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]

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ