3行マクロ 42回
41回のコードは、以下のようにとても短いコードでしたが、もっと手短なコードで実行する方法があります。
Sub 範囲に一括減点する()
Range("G3:G35").Value = Evaluate("G3:G35-3")
End Sub
それは、イミディエイトウィンドウで実行するという方法です。
Excelバージョン:
Sub 範囲に一括減点する()
Range("G3:G35").Value = Evaluate("G3:G35-3")
End Sub

Range("G3:G35").Value = Evaluate("G3:G35-3")
コードはこのように、もっと簡略化することもできます。
[g3:g35]=[g3:g35-3]

