Rows("3:" & x).Select 报错

huajunliang

小白有下面的问题求助各位大咖！

Sub 清除()
Dim x, lastr
    Sheets("Output").Select
    x = Cells(3, 2).End(xlDown)
    Rows("3:" & x).Select
    Selection.Delete Shift:=xlUp

    Sheets("Input").Select
    Range("C3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
    Sheets("Temp").Select
    Cells.Select
    Range("B1").Activate
    Selection.ClearContents
    Sheets("ESCM_Color_Size_report").Select
    Cells.Select
    Selection.ClearContents
End Sub

liulang0808

楼主在报错的时候，选择调试，看看x对应的值是多少
另外就是看看Rows("3:" & x)，是不是牵扯到合并单元格

如果还是没有解决问题，建议上传附件吧

不知道为什么

liulang0808 发表于 2018-6-29 12:45
楼主在报错的时候，选择调试，看看x对应的值是多少
另外就是看看Rows("3:" & x)，是不是牵扯到合并单元格
...

  
应该是这句代码出了问题
x = Cells(3, 2).End(xlDown)   '这返回的是一个单元格的值，如果你单元个里是字符串或者小于1 的数字，那怎么办？我猜楼主是想取行号，后面加个 .row
  Rows("3:" & x).Select

其它没看，就这个你先试试