针对瓦斯地质参量岩层厚度效应系数计算复杂、工作量大且易出错的特点，提出了基于 Excel － VBA 强大数据处理功能和 VBA 二次开发的编程思路，设计了程序计算界面，实现了岩层厚度效应系数 ( RTE) 和砂岩比自动计算功能。程序具有自动判识、自动计算、自动保存特点，减少了瓦

斯地质工作人员的工作量，提高了计算精度，在陶二矿瓦斯地质分析应用中取得了良好效果。