1

TOTAL CALLS:次のマクロは、既存のマクロを改造したもので、単語の後に空白行を挿入することになっていますSummary:。

問題は、その行の下ではなく上にその空白行を追加しているSummary:ことです。

これはおそらく簡単な修正ですが、完全に台無しにしないようにVBを十分に知らないため、エラーがどこにあるのかわかりません。このマクロを使用すると、週に 1 回、約 400 行の空白行を手動で追加する必要がなくなります。助けてくれてありがとう！

Sub Insert() 
    Dim rng As Range 

    Set rng = Range("D1") 
    While rng.Value <> "" 
        If rng.Value = "Summary" Then 
            rng.EntireRow.Insert 
            rng.Offset(1, 0) = "TOTAL CALLS" 
            Set rng = rng.Offset(1) 
        End If 
        Set rng = rng.Offset(1) 
    Wend 
End Sub
4

1 に答える 1

1

Insertメソッドは常にこのように挿入します。

範囲の後に行を挿入する必要がある場合は、Offsetまたは他の方法を使用して、挿入された行が属する場所を指定する必要があります。

rng.Offset(1,0).EntireRow.Insert
于 2013-09-17T18:48:56.317 に答える