Excel VBA質問箱 IV

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

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


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

296 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【81127】複数シートのデータをまとめシートに表示させる ade 19/11/27(水) 10:18

【81128】Re:複数シートのデータをまとめシートに表... ピンク 19/11/27(水) 11:23

【81129】Re:複数シートのデータをまとめシートに表... ピンク 19/11/27(水) 11:25

【81130】Re:複数シートのデータをまとめシートに表... ade 19/11/28(木) 9:40


	【81127】複数シートのデータをまとめシートに表示...

ade - 19/11/27(水) 10:18 -


	引用なし

	パスワード

はじめまして。自分なりに調べているのですが、出来なくて困っています。

複数シート＜10月1日、10月2日・・・10月31日＞があります。
各シートの配列は同じで、各セルは他のセルを参照（例：=K2)しています。
　　＜10月1日＞　＜10月2日＞・・・＜10月31日>
B2　　　1.5　　　　　2.0　　　　　　　3.0
B3　　　0.3　　　　　1.8　　　　　　　　　←空白
B4　　　4.3　　　　　2.3　　　　　　　1.9
B5　　　1.3　　　　　3.8　　　　　　　2.5　

＜まとめシート＞
　10/1　　10/2　・・・・　10/31
　1.5　　　2.0　　　　　　　3.0
　0.3　　　1.8　　　　　　　
　4.3　　　2.3　　　　　　　1.9
　1.3　　　3.8　　　　　　　2.5
上記のようにB2～B5をまとめシートに表示させるコードを教えていただきたいです。その際、シート名＜10月1日＞を＜まとめシート＞の10/1に表示させるコードもよろしくお願いします。


	【81128】Re:複数シートのデータをまとめシートに...

ピンク - 19/11/27(水) 11:23 -


	引用なし

	パスワード

参考に
Sub Test()
　　Dim i As Long
　　With Worksheets("まとめシート")
　　　　For i = 1 To 3
　　　　　　.Cells(1, i).Value = "'10/" & i
　　　　　　Worksheets("10月" & i & "日").Range("B2:B5").Copy .Cells(2, i)
　　　　Next
　　End With
End Sub


	【81129】Re:複数シートのデータをまとめシートに...

ピンク - 19/11/27(水) 11:25 -


	引用なし

	パスワード

訂正
>For i = 1 To 3
　 ↓
For i = 1 To 31


	【81130】Re:複数シートのデータをまとめシートに...

ade - 19/11/28(木) 9:40 -


	引用なし

	パスワード

とても参考になりました。
ありがとうございました。


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

296 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free