Sub 宏1()
For Each wsh In Sheets
wsh.Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(C[5])"
Next wsh
End Sub
Sub 宏1()
For Each wsh In Sheets
wsh.Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(C[5])"
Next wsh
End Sub