[已解决]删除最后一行的代码。

跑跑2014

这句代码不知道怎么写了，请教高手，多谢。

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2014-4-19 07:33

Cells(Rows.Count, "d").End(xlUp).EntireRow.Delete

跳转到最佳答案楼层

zss7758258

刚睡醒，我顶你

顺⑦.zì繎。

1. Cells(Rows.Count, "d").End(xlUp).EntireRow.ClearContents

复制代码

以D列作为判断。删除D列有数据的最后一整行。

dsmch

1. Sub Macro1()
   
2. x = ActiveSheet.UsedRange.Find("*", searchdirection:=xlPrevious).Row
   
3. Rows(x).Delete
   
4. End Sub
   

复制代码

我心飞翔410

Cells(Rows.Count, "d").End(xlUp).EntireRow.Delete