タイトルにある質問になります。
現在、エクセルシート内で下記のようなデータがあるシートを
日付順であります。
こちらのシートにあるデータをすべての日付から
一つにまとめる方法がありましたらご教示頂きたいです。
説明が拙くわかりにくですが、
何卒宜しくお願い致します。
※修正
具体的に
添付したエクセルデータが各日付のシートにあります。
これらのシートにあるデータをすべて一つのシートにまとめたいです。
気になる質問をクリップする
クリップした質問は、後からいつでもMYページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2016/09/08 07:43
2016/09/08 07:44
回答2件
0
ベストアンサー
追記の内容で現状はある程度つかめましたが、結果の形がわかりません。
・単純に同じ並びで縦に追記すればいいのか?
・見出し行は読み飛ばす?
・連番は振り直す?
・同じ人が複数回出力されてもかまわない?
など、確認したいことがいくつかありますが。
とりあえず単純に縦に追記するだけなら以下のようなコードになります。
Sub test() Dim shtR As Worksheet Dim shtW As Worksheet Dim rngR As Range Dim rngW As Range Dim i As Integer Dim lOutRow As Long '出力シートの設定 Set shtW = Sheets("出力") '出力行の設定 lOutRow = 2 'すべてのシートをループ処理 For Each shtR In Worksheets If shtR.Name = shtW.Name Then '出力シートは処理しない Else '取得シートA列でデータのある範囲をループ処理 For Each rngR In shtR.Range(shtR.Cells(2, 1), shtR.Cells(shtR.Rows.Count, 1).End(xlUp)) 'A列~E列をループ処理 For i = 1 To 5 shtW.Cells(lOutRow, i) = shtR.Cells(rngR.Row, i) '読込シート⇒出力シートに転記 Next '出力行を+1する lOutRow = lOutRow + 1 Next rngR End If Next shtR End Sub
投稿2016/09/08 08:12
総合スコア3013
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/09/08 08:14
2016/09/08 08:20
2016/09/09 02:43
2016/09/09 03:22 編集
2016/09/09 03:38
0
期待していることにマッチしているかわかりませんが、とりあえず。
まとめるシートを新たに用意して、そのシートのコードに下記を貼り付けて実行してください。
各シート2行目からA列の値がなくなるまで回ります。
VBA
1Sub sample() 2 Dim fs As Worksheet ' 抽出元のシート 3 Dim ts As Worksheet ' 抽出先のシート(このシート) 4 Dim fr As Long ' 抽出元の行カウンタ 5 Dim tr As Long ' 抽出先の行カウンタ 6 7 Set ts = Me 8 tr = 1 9 For Each fs In Worksheets 10 If fs.Name <> ts.Name Then 11 r = 2 12 ' 登録されている行を対象にループ 13 While fs.Cells(r, 1) <> "" 14 fs.Rows(r).Copy ts.Rows(tr) 15 tr = tr + 1 16 r = r + 1 17 DoEvents 18 Wend 19 End If 20 Next 21End Sub
投稿2016/09/08 07:57
総合スコア16996
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/09/09 02:45
2016/09/09 02:47
2016/09/09 03:47
2016/09/09 06:02
あなたの回答
tips
太字
斜体
打ち消し線
見出し
引用テキストの挿入
コードの挿入
リンクの挿入
リストの挿入
番号リストの挿入
表の挿入
水平線の挿入
プレビュー
質問の解決につながる回答をしましょう。 サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。 また、読む側のことを考えた、分かりやすい文章を心がけましょう。
関連した質問
エクセルのワークシートにあるデータを一つのシートにまとめる。