excel - How to clear contents of a dynamic range minus the header -
i trying clear contents of dynamic range minus header. below works enough though not exclude header. when header, mean want clear column range minus first row
set wz3= workbooks("book1") wz3.worksheets("sheet1").range("a:g").clear
changing to: wz3.worksheets("sheet1").range("a2:g").clear
sadly not skip header , instead gives error.
the below tends work though @ disadvantage of having manually write down each column wish clear. assuming had 500 columns , gaps between them calculating , writing daunting task... appreciated.
sub test() dim wb1 excel.workbook set wb1 = workbooks("book1") wb1.worksheets("sheet1") call columnselectandclear(1) call columnselectandclear(2) columnselectandclear 3 columnselectandclear 4 end end sub public sub columnselectandclear(colnum long) set wb1 = workbooks("book1") wb1.worksheets("sheet1") .range(.cells(2, colnum), .cells(rows.count, colnum)).clearcontents end end sub
dim lrw long lrw = range("a:c").specialcells(xlcelltypelastcell).row wz3.worksheets("sheet1").range("a2:g" & lrw).clear
Comments
Post a Comment