|
じゅんじゅんさんこんな感じなんですけれど。
いかがなものでしょうか
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
比較
⇒の部分を実行してくれないのです。
|
|