Question

我从现有的宏改编的以下宏应该在单词TOTAL CALLS:之后插入一个空白行，其中包含单词Summary:。

问题是它在Summary:行之上添加了空白行，而不是在它之下。

这可能是一个简单的修复但我只是没有看到错误的位置，因为我不知道足够的VB不能完全弄乱它。这个宏将帮助我避免每周一次手动添加大约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

Answer 1

Insert方法始终会像这样插入。

如果您需要在范围之后插入行，则需要使用Offset或其他方法来指定插入行所属的位置。

rng.Offset(1,0).EntireRow.Insert

宏在文本上方插入空行而不是之后

1 个答案: