| 
    
     |  | ▼初心者かめさん さん: >じゅんじゅんさん
 >
 >   Dim strRange As String
 >  Dim strFormula As String
 >  strRange = "F" & n + 1
 >  strFormula = "=SUM(d" & n & ":d" & n + 1 & ")"
 >  Range(strRange).Formula = strFormula
 >  Cells(n + 1, "J").Select
 >  Selection.ClearContents
 >  Cells(n + 1, "f").Select
 >  Selection.Copy
 >  Cells(n + 1, "J").Select
 >  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,      SkipBlanks _
 >    :=False, Transpose:=False
 >  n = n + 1
 >  比較
 >
 >こんなかんじなんですが、いかがなものでしょうか?
 
 F列に数式により値は表示されるけど、J列にその値がコピペされない
 と言う事ですよね?
 問題ないように思いますけど、ループはちゃんと動いてますか?
 (n = n + 1 があるのだから、どこかでループしているわけですよね?)
 
 
 |  |