关于清空excel数据问题

Question

在VB中怎样清空excel中sheet1中的所有数据，格式还要保留。
我用双循环实现，好像不实用，有什么命令能处理吗
for i=1 to 1000
   for j=1 to 200
     xlsheet.cells(i,j)=""
   next
next

Answer 1

这是EXCEL宏生成的代码，具体的VB代码要做些改动，你自己试试。
 Range("A1:F17").Select
 Selection.ClearContents

Answer 2

你的代码是可以的，不过可能你调用EXCEL的地方不正确

Answer 3

dim a as range
set a=sheets(1).usedrange
a.clearcontents