|
UO3 さん、かみちゃん さんありがとうございます。ですが分かりません。。
使用しているコードを記述しますのでお願い致します。
Sub 1日()
Application.ScreenUpdating = False
Range("B1:B10").Select
Selection.Copy
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("d2").Select
End Sub
Sub 2日()
Application.ScreenUpdating = False
Range("B1:B10").Select
Selection.Copy
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G2").Select
End Sub
Sub 3日()
Application.ScreenUpdating = False
Range("B1:B10").Select
Selection.Copy
Range("J5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("J2").Select
End Sub
以下31日までとなっています。変わる部分はおなじですし、規則性があるため
短くまとめたいと考えています。 n = 3 * m + 1
|
|