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

Popular posts from this blog

ubuntu - PHP script to find files of certain extensions in a directory, returns populated array when run in browser, but empty array when run from terminal -

php - How can i create a user dashboard -

javascript - How to detect toggling of the fullscreen-toolbar in jQuery Mobile? -