[已解决]根据表1数字删除表2的行数

zss7758258

假如<表1>的单元格F4是5，那么就删除<表2>A5：K5,并且让“下方单元格上移”



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

2014-11-29 12:05 上传

点击文件名下载附件

答案

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

复制代码

最佳答案

月排行榜 / 总排行榜

爱疯

2014-11-29 12:15

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

跳转到最佳答案楼层

爱疯

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

zss7758258

爱疯 发表于 2014-11-29 12:15
Sub Click()
    Sheets(2).Range("a1:k" & Sheets(1).Range("f4")).Delete
End Sub

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


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

2014-12-8 20:03 上传

点击文件名下载附件

爱疯

你说“在单元格f4是12以上的时候代码执行出错”，错误现象是什么的？

我只是把删除的参数带上了，并看了下，删除后下面的单元格是否上移（测试后，是OK的，黄色区域上移了）
222根据表1数字删除表2的行数b.rar (24.14 KB, 下载次数: 5)

2014-12-8 22:10 上传

点击文件名下载附件

zss7758258

爱疯 发表于 2014-12-8 22:11
你说“在单元格f4是12以上的时候代码执行出错”，错误现象是什么的？

我只是把删除的参数带上了，并看了 ...

可以了，谢谢版主

zss7758258

1. Sub Click()
   
2.     Debug.Print Sheets(2).Range("a1:k" & Sheets(1).Range("f4")).Address
   
3. 
   
4.     Sheets(2).Range("a1:k" & Sheets(1).Range("f4")).Delete shift:=xlShiftUp
   
5. End Sub

复制代码