|
▼初心者かめさん さん:
>正確には
>> 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
>> 比較
>>
>>⇒の間全部の部分を実行してくれないのです。
>> Range(Cells(n + 1, "f"), Cells(n + 1, "f")).Select
>>⇒ Selection.Copy
2回目のこの作業は意味あるのでしょうか?
この後ろでPasteを実行しているのですか?
|
|