1,217
社区成员
发帖
与我相关
我的任务
分享关于清空excel数据问题
在VB中怎样清空excel中sheet1中的所有数据，格式还要保留。
我用双循环实现，好像不实用，有什么命令能处理吗
for i=1 to 1000
for j=1 to 200
xlsheet.cells(i,j)=""
next
next
我用双循环实现，好像不实用，有什么命令能处理吗
for i=1 to 1000
for j=1 to 200
xlsheet.cells(i,j)=""
next
next
...全文
请发表友善的回复…
发表回复
yigepure 2004-10-29
- 打赏
- 举报
dim a as range
set a=sheets(1).usedrange
a.clearcontents
set a=sheets(1).usedrange
a.clearcontents
VbKing 2004-10-29
- 打赏
- 举报
你的代码是可以的，不过可能你调用EXCEL的地方不正确
hansong_ll 2004-10-29
- 打赏
- 举报
这是EXCEL宏生成的代码，具体的VB代码要做些改动，你自己试试。
Range("A1:F17").Select
Selection.ClearContents
Range("A1:F17").Select
Selection.ClearContents
