上一篇文章给大家分享了什么是对象的属性和方法，以及怎么区分？
今天就给大家分享一章比较重要的VBA的基本语法中的算术运算符、比较运算符。
这些运算符等在VBA程序的运行当中是必不可少的，我们对不同的数据处理就需要不同的运算符号。
我们首先了解一下什么是算术运算符？
算术运算符号就是对数据进行算术运算的，一般得到的计算结果肯定也是数据类型的。
那么VBA中都有哪些算术运算符，它们都有什么功能呢？
❶ “ ” 求两个数的和 例子：1 2=3
❷“-” 求两个数的差 例子：2-1=1
❸“*” 求两个数的积 例子：2*2=4
❹“/” 求两个数的商 例子：4/2=2
❺“%”（Mod） 取余数运算 例子：5%2=1 7 Mod 5=2
❻“^” 指数运算 例子：3^2=3*3=9
举例子：
要使用到的数据表格：
代码：
Sub suanshuyunsuanfu()
Worksheets("sheet30").Range("D2")= Worksheets("sheet30").Range("B2") Work sheets("sheet30").Range("C2")
Worksheets("sheet30").Range("D2").Font.Color = RGB(255, 0, 0)
Worksheets("sheet30").Range("D5") = Worksheets("sheet30").Range("B5") - Worksheets("sheet30").Range("C5")
Worksheets("sheet30").Range("D5").Font.Color = RGB(255, 0, 0)
Worksheets("sheet30").Range("D8") = Worksheets("sheet30").Range("B8") * Worksheets("sheet30").Range("C8")
Worksheets("sheet30").Range("D8").Font.Color = RGB(255, 0, 0)
Worksheets("sheet30").Range("D11")= Worksheets("sheet30").Range("B11") / Worksheets("sheet30").Range("C11")
Worksheets("sheet30").Range("D11").Font.Color = RGB(255, 0, 0)
Worksheets("sheet30").Range("D14")= Worksheets("sheet30").Range("B14") ^ Worksheets("sheet30").Range("C14")
Worksheets("sheet30").Range("D14").Font.Color = RGB(255, 0, 0)
Worksheets("sheet30").Range("D17")= Worksheets("sheet30").Range("B17") Mod Worksheets("sheet30").Range("C17")
Worksheets("sheet30").Range("D17").Font.Color = RGB(255, 0, 0)
End Sub
其次再了解一下什么是比较运算符号？
❶“=” 等于符号 判断表达式是使用 表达式A=表达式B 当表达式相等时就返回True ，不相等的时候返回False。
❷“<” 小于符号 判断表达式是使用 表达式A<表达式B 当表达式A小于表达式B时就返回True ，否则返回False。
❸“>” 大于符号 判断表达式是使用 表达式A>表达式B 当表达式A大于表达式B时就返回True ，否则返回False。
❹“<=” 小于等于符号 判断表达式是使用 表达式A<=表达式B 当表达式A小于等于表达式B时就返回True ，否则返回False。
❺“>=” 大于等于符号 判断表达式是使用 表达式A>=表达式B 当表达式A大于等于表达式B时就返回True ，否则返回False。
❻“<>” 不等于符号 判断表达式是使用 表达式A<>表达式B 当表达式A不等于表达式B时就返回True ，否则返回False。
❻“Is” 比较两个对象的引用变量，对象A Is 对象B ，当对象A和对象B引用相同的对象时就返回True ，否则返回False。
❼“Like” 比较两个字符串是否匹配，字符串A Like 字符串B ，当字符串A和字符串B匹配时就返回True ，否则返回False。
举个例子：
Sub ljys()
Dim a As Integer, b As Integer
a = 10
b = 20
If a = b Then
MsgBox " a和b相等"
ElseIf a < b Then
MsgBox " a小于b"
Else
MsgBox " a大于b"
End If
End Sub
接下来要使用的数据表：
代码如下：
Sub lj()
Dim i As Integer
For i = 2 To 8
If Worksheets("sheet31").Cells(i, 2).Value Like "李*" Then
Worksheets("sheet31").Cells(i,8)=Worksheets("sheet31").Cells(i, 2).Value
End If
Next
End Sub
这里面为了举Like的实例，使用了一个通配符“*”，下一章我们会具体分享，这里大家只需要重点关注Like就行。
今天就分享到这里，明天继续，喜欢的请关注我，谢谢！
下一章我们接着分享，比较重要的逻辑运算符和通配符
,
