excel - Removing Row Based on Blank Cells -
is there easy way tell excel delete row if cell in intersecting column blank? require vba?
as reference point, found following vba code:
dim foundcell range application.screenupdating = false set foundcell = range("b:b").find(what:="") until foundcell nothing foundcell.entirerow.delete set foundcell = range("b:b").findnext loop
but reason crashes when try run it.
if wish delete rows in value in column b blank, try:
sub kleanb() dim b range, rdel range, r range, n long n = cells(rows.count, "b").end(xlup).row set b = range("b1:b" & n) b.cells.specialcells(xlcelltypeblanks).entirerow.delete end sub
Comments
Post a Comment