我看了一下程序，发现了部分问题。

1、由于没有使用分层和测井表，所以复制部分应该在内存表execla和execlb复制。
2、你的execl没有"油"和"气",但是复制选项还使用了此条件，因此结果数据是空。

其他：
1、输出表也需要建立内存表，否则速度不会快。
2、输出表可以采用三维数组。
  其中增加的1维存储表名，另外的2维与复制表一致
 生成execl时，利用for将三维表转为多个2维赋值给不同sheet在统一保存。

[此贴子已经被作者于2018-3-17 10:23编辑过]

数组就是内存表？

1、虽然结贴了，我也重新修改了下程序，修改后的execl处理速度，远远高于直接操作execl的处理速度。

2、程序主要实现了execl到内存的读取、在内存的操作，以及再保存为execl。

3、此程序我按照原来程序进行了简化。
  读取部分定义了一个公共子程序将execl读到内存，取消了临时execl表
  查询部分利用内存比较，主要是解决了速度慢问题，输出结果在一个二维数组中
  输出部分按照二维数组原始格式保存的，没做execl拆分和execl格式处理。

抱歉啊，太忙了，几天没上网，十分感谢你的帮助，我会好好看看的，再次感谢