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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Excel VBA宏 - 带有格式的复制插入数据的问题相关的知识,希望对你有一定的参考价值。

我有一个电子表格,我在宏中使用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
答案

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

谢谢,

以上是关于Excel VBA宏 - 带有格式的复制插入数据的问题的主要内容,如果未能解决你的问题,请参考以下文章

Excel / VBA:粘贴数据后自动调整列宽

将单元格数据复制到宏中以避免更新宏

用VBA编写复制功能,能不能只粘贴值,不粘贴格式

如何用VBA宏程序将excel中的内容批量复制到word文档中去

excel用vba宏处理一些日期时间

如何用VBA宏程序将excel中的内容批量复制到word文档中去