方法clear作用于对象range失败

wenjie242922

以下代码运行到黄色字体时，出错，提示“方法clear作用于对象range失败“，请教高手指点！谢谢



Sub 复制采购清单到汇总表()
Windows("接待开票汇总.xlsm").Activate '.Activate '打开接待总表
   Sheets("采购清单").Activate
[P1] = "=DATE(YEAR(NOW()),MONTH(NOW()),1)"
[P2] = "=[接待开票系统.xlsm]采购清单!$B$4" '当月第一张单号日期
[O1] = "=IFERROR(LOOKUP(2,0/((A:A=""采购日期："")*(B:B>0)),B:B),P2)"  '本表最后日期
[O2] = "=IFERROR(LOOKUP(2,1/($A:$A<>""""),ROW($A:$A))+2,2)" '本表最后一行+2,如无数据=2
[Q1] = "=IFERROR(MATCH(O1,B:B,0)-2,O2)" '上月最后一行
X = [Q1]
  Windows("接待开票系统.xlsm").Activate '打开当前年份分表
    Sheets("采购清单").Activate
    M = Range("A65536").End(xlUp).Row
[P1] = "=[接待开票汇总.xlsm]采购清单!$O$1"
[P2] = "=IFERROR(MATCH(P1,B:B,0),4)"
    Y = [P2] - 2
    Range("A" & Y & ":I" & M).Select
    Selection.Copy
  Windows("接待开票汇总.xlsm").Activate '.Activate '打开接待总表
    Sheets("采购清单").Activate
  M = Range("A65536").End(xlUp).Row
Range("A" & X + 1 & ":I" & M + 1).Clear '删除开始复制行以下的内容
   Range("A" & X).Select '从此行开始复制
    ActiveSheet.Paste
'----将本表数据转换成数值----
Sheets("采购清单").Select
Sheets("采购清单").Columns("A:I").Select
    Application.CutCopyMode = False
    Selection.Copy
   Sheets("采购清单").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    '----删除B列数据有效性----
   Columns("A:A").Select
    Selection.Validation.Delete
   Range("A" & [A65536].End(xlUp).Row + 1).Select
End Sub

liulang0808

Range("A" & X + 1 & ":I" & M + 1).Clear '删除开始复制行以下的内容
首先看看参数是否满足要求
然后看看这个区域是否跨合并单元格？

wenjie242922

嗯，是的，有夸合并单元格，这个怎么改呢？

wenjie242922

liulang0808 发表于 2019-11-29 07:32
Range("A" & X + 1 & ":I" & M + 1).Clear '删除开始复制行以下的内容
首先看看参数是否满足要求
然后看 ...

嗯，是的，这个区域是有跨合并单元格，这个怎么改呢？

liulang0808

wenjie242922 发表于 2019-11-29 11:34
嗯，是的，这个区域是有跨合并单元格，这个怎么改呢？

这个要看具体表格结构，可以分段清空

一指禅62

Range("A" & X + 1 & ":I" & M + 1)=“”

wenjie242922

这样只能清空数据，无法删除边框。

wenjie242922

一指禅62 发表于 2019-11-29 12:30
Range("A" & X + 1 & ":I" & M + 1)=“”

这样只能清空数据，无法删除边框之类的