请教各位老师用宏达到以下结果

wangyongjie036

将A列CTRL+SHIFT+向下选中，遇到第一个空数据后将该空数据所在行和下面的所有行删除，如附件，黄色标注单元格以及下面有数据的单元格全部删除，用宏该怎么写？

wangyongjie036

请各位老师不吝赐教

jiangxiaoyun

筛选一下不就可以了？删除空白行是不？怎么表述得令人如此困绕.....

jiangxiaoyun

1. 
   

复制代码

Sub cvc()
    Dim arr, lastrow&
    lastrow = [a1].End(xlDown).Row
    arr = Range("a1:c" & lastrow)
    [a1:c66666] = ""
    [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

wangyongjie036

jiangxiaoyun 发表于 2017-8-6 20:26
筛选一下不就可以了？删除空白行是不？怎么表述得令人如此困绕.....

谢谢回复，筛选达不到效果，不止是删除空行，是遇到空数据单元格后将下面所有数据删除

wangyongjie036

jiangxiaoyun 发表于 2017-8-6 20:36
Sub cvc()
    Dim arr, lastrow&
    lastrow = [a1].End(xlDown).Row

谢谢您的帮助，鲜花奉上。