針對瓦斯地質參量巖層厚度效應系數計算復雜、工作量大且易出錯的特點，提出了基于 Excel － VBA 強大數據處理功能和 VBA 二次開發的編程思路，設計了程序計算界面，實現了巖層厚度效應系數 ( RTE) 和砂巖比自動計算功能。程序具有自動判識、自動計算、自動保存特點，減少了瓦
斯地質工作人員的工作量，提高了計算精度，在陶二礦瓦斯地質分析應用中取得了良好效果。