[已解决]请帮忙看看哪里出错了

zss7758258

在单元格f4是12以下的时候代码执行正确，在单元格f4是12以上的时候代码执行出错，直接删除A:K列单元格向左移动，我想要的结果是：删除指定的行数之后单元格上移。

1. Sub Click()
   
2.     Sheets("表2").Range("a1:k" & Sheets("表1").Range("f4")).Delete
   
3. End Sub

复制代码

222根据表1数字删除表2的行数.zip (21.82 KB, 下载次数: 1)

2014-12-8 20:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-8 20:48

1. Sub Click()
   
2.     Sheets("表2").Range("a1:k" & Sheets("表1").Range("f4").Value).Delete Shift:=xlUp
   
3. End Sub

复制代码

这样试试

跳转到最佳答案楼层

qh8600

1. Sub Click()
   
2.     Sheets("表2").Range("a1:k" & Sheets("表1").Range("f4").Value).Delete Shift:=xlUp
   
3. End Sub

复制代码

这样试试