Excel VBA宏 - 带有格式的复制插入数据的问题

Posted 2021-04-03

我有一个电子表格，我在宏中使用AutoFill插入行并复制粘贴数据（在第1列的任何行中）。在宏 - 七天，它在其他行上工作正常但不是如果数据在第一行并且第一行具有白色背景。请指导。这是代码：

Sub Macro7Day()

 If ActiveCell.Column = 1 Then
        Dim numCopies As Long
        numCopies = 6

        Dim i As Long
        For i = 1 To numCopies
            Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next i
        Range("A5:E5").Copy
        Range(ActiveCell, ActiveCell.Offset(numCopies, 4)).PasteSpecial xlPasteFormats
        ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(numCopies, 0)), Type:=xlFillDefault 'xlFillCopy
End If

End Sub

答案

根据我的测试，您的代码在第一列的任何行中复制带有格式的插入数据时运行良好。但是，正如您所描述的那样，您的代码在其他行上可以正常工作，但如果数据位于第一行且第一行具有白色背景，则不会。我想知道“第一行有白色背景”是什么意思还是第一行没有数据？希望你为此更新。

谢谢，

雪