Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5078 / 76732

←次へ　｜　前へ→


	【77267】Re:シートをまとめる

kanabun - 15/6/27(土) 15:30 -


	引用なし

	パスワード

▼エクセル勉強中さん： >ちなみにＡ列の日付のところは直接手入力で打ち込んでいます。 A列データがある行だけ、なら、先ほどの tryB() のほうはこんな感じになります。 Sub tryB() 　Dim wsまとめ As Worksheet 　Dim ws As Worksheet 　　Set wsまとめ = Worksheets("集約")　'まとめ用シート　For Each ws In Worksheets 　　If ws.Name <> wsまとめ.Name Then 　　　　ws.Range("A17", ws.Cells(Rows.Count, 1).End(xlUp)).Resize(, 7).Copy 　　　　wsまとめ.Cells(Rows.Count, 2).End(xlUp).Offset(1, -1) _ 　　　　　.PasteSpecial xlPasteValues 　　End If 　Next End Sub なお、このコードは同じBookのなかに集約用のシートが1枚入っていて、 1行目に、列見出しが　　 A　　　 B　　　　 C　　　　　　 D　　　　E　　 F　　　 G 1 　日付　　コード　商品名　　　　価格　出庫数　単位　金額のように書き込んであることを仮定しています。また、その集約用シート名はここでは「集約」としています。