|
みなさん よろしくお願いします。
まくろの記録を取ったのですがまとめかた
おしえてください。
コードは下記です。
Sub 転記()
Sheets("sheet1").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-5]C[2]"
Range("F13:G13").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-7]C[2]"
Range("F16:G16").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-9]C[2]"
Range("F19:G19").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-11]C[2]"
Range("F22:G22").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-13]C[2]"
Range("F25:G25").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-15]C[2]"
Range("F28:G28").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-17]C[2]"
Range("H28").Select
Range("E32:F32").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E33:F33").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E34:F34").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E35:F35").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E36:F36").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E37:F37").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("E38:F38").Select
ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
Range("G38:I38").Select
End Sub
|
|