|
正確には
> 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
> 比較
>
>⇒の間全部の部分を実行してくれないのです。
|
|