自建公式，VBA在Excel中解一元一次方程

关注

VIP免费原创最新推荐文章于 2025-07-19 12:00:00 发布 1.6k 阅读 AI 写同款· GEO 优化 ›

自建公式，VBA在Excel中求解二元一次方程式组中学必学内容：二元一次方程组。只要将方程组分别输入到Excel工作表两个单元格内，VBA代码可以快速识别方程未知数，求得未知数系数和常数值，使用自建公式，一拖一拉，快速求解二元一次方程。阅读详情

自建公式，VBA在Excel中解一元一次方程

文章目录

前言
一、运行效果图
二、操作思路
三、代码

前言

小学必考内容：一元一次方程。
只要将方程输入到Excel工作表单元格内，VBA代码可以快速识别方程未知数，求得未知数系数和常数值，使用自建公式，一拖一拉，快速求解一元一次方程。

一、运行效果图

在这里插入图片描述

二、操作思路

1、查找方程中未知数，未知数可以是”A-Z”和”a-z”遍历方程字符串，凡为以上字母，均将替换；
2、计算常数，将上述查询到的字母替换成“0”，将方程“=”两边分成两个数组，左边数组数值计算得数后（-1）后与右数数组数值相加；
3、计算未知数系数，将上述查询到的字母替换成“1”，将方程“=”两边分成两个数组，右边数组数值计算得数后（-1）后与左数数组数值相加，再加上2中得出的常数值，即为未知数系数。
4、常数除以未知数系数，即为未知数值。
优点：未知数可以是26个字母大小写，适用于大多数方程式。
缺点：常数只能是数值，不能是字母。
如不符合实际需求，有兴趣的童鞋可以修改未知数和常数的判断条件。

三、代码

1.去除方程中未知数，将未知数转为“*0”

Function DelX(str As String) As String
  Dim c As String
  Dim i As Integer
  Dim tmp As String
  For i = 1 To Len(str)
    c = Mid(str, i, 1)
    If (c > "A" And c < "Z") Or (c > "a" And c < "z")