自建公式，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 StringDim c As StringDim i As IntegerDim tmp As St