| 
    
     |  | 正確には >  Dim strRange As String
 >  Dim strFormula As String
 >  strRange = "f" & n + 1
 >  strFormula = "=SUM(d" & n & ":d" & n + 1 & ")"
 >  Range(strRange).Formula = strFormula
 >⇒ Range(Cells(n + 1, "f"), Cells(n + 1, "f")).Select
 >  Selection.Copy
 >  Range(Cells(n + 1, "J"), Cells(n + 1, "J")).Select
 >  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
 >  SkipBlanks _
 >    :=False, Transpose:=False
 >  Range(Cells(n + 1, "J"), Cells(n + 1, "J")).Select
 >  Selection.ClearContents
 >  Range(Cells(n + 1, "f"), Cells(n + 1, "f")).Select
 >⇒ Selection.Copy
 >  n = n + 1
 >  比較
 >
 >⇒の間全部の部分を実行してくれないのです。
 
 |  |