2012年3月14日 - Try this (UNTESTED) Sub Sample() Dim i As Integer For i = 16 To 25 Sheets("Sheet1").Range("K" & i).Formula = "=ROUND(J" & i & ",1)" Next i End ...
stackoverflow.com