Question

我有一个电子表格，在其中插入行并使用宏中的自动填充功能（在第一列的任何行中）复制粘贴数据。在宏-7天中，它在其他行上工作正常，但在数据在第一行且第一行具有白色背景的情况下则无法正常工作。请指导。这是代码：

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

Answer 1

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

谢谢

Yuki

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

1 个答案: