Question

我正在尝试编写一些VBA，它允许按钮添加一个空行，保持相同的格式，就在SUM公式所在的行的上方。

到目前为止，我创建了一个空行，但我不知道如何实现代码让新行继承相同的格式样式（包括边框和格式单元格）。

到目前为止我的代码是：

    Sub InsertRev()
    Dim c As Range
    Set Rng = ActiveSheet.Range("d1:d5000")
    For dblCounter = Rng.Cells.Count To 1 Step -1
        Set c = Rng(dblCounter)
        If c.Value Like "*TOTAL*" Then
        c.EntireRow.Insert
    End If
    Next dblCounter
End Sub

非常感谢任何帮助。

Answer 1

您可以为document.getElementById('my-typeform-iframe').getElementsByClassName('outro').length > 0方法指定参数：

@+id/ediText

Answer 2

你能不能只复制和粘贴从标题中复制的新插入的数据行？...

TheInsertedRange.PasteSpecial Paste:=xlPasteFormats

类似的东西：

Sub InsertRev()
    Dim c As Range
    Dim Ptr As Range
    Set Rng = ActiveSheet.Range("d1:d5000")
    For dblCounter = Rng.Cells.Count To 1 Step -1
        Set c = Rng(dblCounter)
        If c.Value Like "*TOTAL*" Then
            Set Ptr = c
            Ptr.EntireRow.Insert
            c.Copy
            Ptr.Offset(-1).PasteSpecial Paste:=xlPasteFormats
       End If
    Next dblCounter
End Sub

像这样......

VBA EXCEL在特定行上方添加空行[OPEN]

2 个答案: