|
▼初心者かめさん さん:
>じゅんじゅんさん
>
> 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 があるのだから、どこかでループしているわけですよね?)
|
|