.EntireRow.Insert报错

function2046

这一段类似于这段代码在sheet2中，需要在sheet1中插行

sub 插入行()
with sheet1
   With .Range(.[A15], .Cells(RC + 14, 1)).SpecialCells(xlCellTypeConstants)
      .EntireRow.Insert '插入行，报错？？？？
      .Offset(-1, 0).Value = "备注："
      For Each C In .Cells
        i = C.Row
        With C.Offset(-1, 0).Resize(1, 13)
          .BorderAround xlContinuous
          .Borders(xlInsideVertical).LineStyle = xlLineStyleNone
          .HorizontalAlignment = xlHAlignLeft
        End With
      Next C
    End With

end with
end sub
之前都不会报错  不过现在会了 不知道为什么  附件代码较多，所以没有上传附件，但是单独在新的workbook中貌似能够运行，求解----------------------------------------------------------------------------------
对信息加密后，将关键过程单独写入新建的workbook中，以方便调试，附件如下：
抽凭.7z (200.02 KB, 下载次数: 1)

2017-9-13 13:42 上传

点击文件名下载附件

双击序时账中的[K1]运行程序解决方案：
在调试时发现，前面有一段用了粘贴复制，需要退出粘贴模式后才行，故需要在此段代码前增加Application.CutCopyMode = False即可

onesense

With .Range(.[A15], .Cells(RC + 14, 1)).SpecialCells(xlCellTypeConstants)
      .EntireRow.Insert '

我猜，是不存在含有常量的单元格，导致错误。

ww87725244

你的版本是多少呢？？？？

function2046

onesense 发表于 2017-9-12 23:15
With .Range(.[A15], .Cells(RC + 14, 1)).SpecialCells(xlCellTypeConstants)
      .EntireRow.Insert ' ...

就是因为反复检查发现有常量存在，又报错所以懵逼了

function2046

ww87725244 发表于 2017-9-12 23:33
你的版本是多少呢？？？？

使用的是office 365 64位  版本号是1707（内部版本8326.2096）

onesense

function2046 发表于 2017-9-13 10:19
就是因为反复检查发现有常量存在，又报错所以懵逼了

我也是刚入门的菜鸟级，看不出来哪里错了语法。。