如何一次性删除多个工作表中的奇数行
例题描述
Excel文件book1.xlsx中有多个工作表，下图所示是其中之一：
现在想要一次性删除所有工作表中的奇数行，删除后如下图所示：
此题涉及读取Excel数据、删除序表行、序表保存到工作表等知识。
实现步骤
1、 编写脚本：
A |
B |
|
1 |
=file("E:/work/ book1.xlsx").xlsopen() |
|
2 |
for A1 |
=A1.xlsimport@t(;A2.stname) |
3 |
=B2.delete(B2.select(#%2==1)) |
|
4 |
=file("E:/work/ book2.xlsx").xlsexport@ta(B3;A2.stname) |
A1 打开book1.xlsx文件为Excel对象
A2 循环A1中每个Sheet
B2 读入A1中当前Sheet的数据，选项@t表示首行是列标题
B3 选出B2中的奇数行数据，然后从B2中删除它们
B4 把B3导出到book2.xlsx当前名称的Sheet中，选项@t表示首行输出列标题，a表示追加导出
2、 运行程序，结束后就可以看到work目录中生成的book2.xlsx文件。
问答搜集 http://club.excelhome.net/thread-1571714-1-1.html
【附件】 delodd.zip
