###前提・実現したいこと
VBA超初心者です。
実現したいこと:別シート(日別)で同一箇所にある「日別」の表をループで結合させたい。
プログラミングに分かりやすく説明付けて頂けると助かります。
よろしくお願いいたします。
###発生している問題・エラーメッセージ
① ループさせたい。
② ないシート(日)もある。
③ 月によってある日(シート)が違う。
###該当のソースコード
Sub Macro6()
'
' Macro6 Macro
'
'
Sheets("01").Select
Range("S3:U30").Select
Selection.Copy
Sheets("集計表").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("02").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A29").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("03").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A57").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("06").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A85").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("07").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A113").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("08").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A141").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("09").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy ActiveWindow.SmallScroll Down:=3 Sheets("集計表").Select Range("A169").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("10").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy Sheets("集計表").Select Range("A197").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=6 Sheets("11").Select Range("S3:U30").Select Application.CutCopyMode = False Selection.Copy ActiveWindow.ScrollWorkbookTabs Sheets:=-1 Sheets("集計表").Select Range("A225").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False
End Sub
###試したこと
上記で、現在あるデータは結合できた。
###補足情報(言語/FW/ツール等のバージョンなど)
VBA(EXCEL2013)
回答1件
あなたの回答
tips
プレビュー