删除含有特定内容的行
SubSpecialDelete()Dim r As LongWith Sheet1‘计算sheet1中第一列最后一个非空单元格所在的行r = .Cells(.Rows.Count,1).End(xlUp).Row‘将A2:A”r‘’区域内所有特定值替换为空值,2代表部分匹配.Range(‘A2:A’ &r).Replace ‘特定值’, ‘’, 2‘将第一列中所有为空的单元格所在行删除.Columns(1).SpecialCells(4).EntireRow.DeleteEnd WithEndSu
原创
2020-07-11 14:46:49 ·
852 阅读 ·
0 评论