[已解决]删除表2最后一行

米特峰

删除表2最后一行.zip (7.63 KB, 下载次数: 6)

2014-11-17 15:16 上传

点击文件名下载附件


在《表1》执行VBA，删除《表2》中A:H列最后一行（也就是A1048576:H1048576单元格开始往上数第一个有数据的行)，请老师们给个答案之后讲解一下

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-11-17 15:53

额，那就改一下区域嘛

1. Sub a()
   
2. Sheets(2).Rows(Sheets(2).range("a1:h1048576").SpecialCells(xlCellTypeLastCell).Row).Delete
   
3. End Sub

复制代码

跳转到最佳答案楼层

这儿有肥猫

1. Sub a()
   
2. Sheets(2).Rows(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Delete
   
3. End Sub

复制代码

米特峰

这儿有肥猫 发表于 2014-11-17 15:27

老师请不要超出A:H列

这儿有肥猫

第二个工作表所以是sheets(2),要删除行所以是row，要定位最下一个单元格的行用xlCellTypeLastCell,这个代表最后一个单元格

这儿有肥猫

额，那就改一下区域嘛

1. Sub a()
   
2. Sheets(2).Rows(Sheets(2).range("a1:h1048576").SpecialCells(xlCellTypeLastCell).Row).Delete
   
3. End Sub

复制代码