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

自建公式，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