|
これを何とか1つにまとめられませんか?
Dimにはa,b,c,dを指定(形はすべてLong)
'1行目
For a = 9 To 28
If a > Worksheets.Count Then Exit For
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A6:E10").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D3").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
'2行目
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A12:E16").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D38").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
'3行目
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A18:E22").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D73").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
'4行目
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A24:E28").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D108").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
'5行目
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A30:E34").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D143").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
'6行目
For b = 0 To 34 Step 5
Sheets(a).Select
Range("A36:E40").Offset(, b).Select
Selection.Copy
Sheets("日程表データベース").Select
Range("D178").Offset(, a * 10 - 90).Select
Selection.Offset(b).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
Application.CutCopyMode = False
Sheets("日程表データベース").Select
Range("A3").Select
Next a
同じような作業なのですが、範囲が若干違うので、これを何とか1つにまとめられる方法がわかる方がいましたら、お願いいたします。m(_ _)m
|
|