重力固体潮改正是重力数据处理的基础,在重力工作中重力仪的仪器试验、重力基点网联测、重力测点绝对重力值计算等主要重力数据处理中,重力固体潮理论值的计算都必不可少。但重力固体潮的计算公式繁杂,为提高计算效率,简化计算过程,笔者应用EXCEL中的Visual Basic编辑器,通过VBA代码实现了重力固体潮理论值的一键计算。