= 在VB的语法里有两种作用, 一是赋值, 二就是逻辑相等运算.
 Dim StrM As String 
 StrM = "save" ' 这里的=是赋值
 If StrM = "save" Then '这里的=是逻辑相等运算

使用IF进行逻辑判断
     Range单元格对象
     IF函数过程控制
     使用IF退出For循环
 
小提示：
     新建模块：右键Sheet、插入模块
     运行：上面的三角形
     注释：'  单引号
 

 使用Range 控制单元格
     直接写单元格：Range("a1") = 2
     变量i和Range结合，控制单元格：Range（"a"&i）
     Dim i As Integer
     For i = 1 To 100
         Range("a" & i) = i
     Next
 
step 设置步长，默认为1
 
if 语法：
     If Range("e" & i) = "男" Then
         Range("f" & i) = "先生"
     Else
         Range("f" & i) = "女士"
     End If
 
if else：
     If Range("b" & i) = "理工" Then
             Range("c" & i) = "lg"
         ElseIf Range("b" & i) = "文科" Then
             Range("c" & i) = "wk"
         Else
             Range("c" & i) = "cj"
         End If
 
注意if、elseif 后面有then
 if的最后有end if 
 使用Tab缩进可以增加可读性
 删除行时下一行会往上跑一行。从下往上删就不会这样。
 Sub panduan()
 Dim i As Integer
 For i = 10 To 1 Step -1
 '处理性别
     If Range("e" & i) = "男" Then
         Range("f" & i) = "先生"
     Else
         Range("f" & i) = "女士"
     End If
     
     '处理专业
     If Range("b" & i) = "理工" Then
         Range("c" & i) = "lg"
     ElseIf Range("b" & i) = "文科" Then
         Range("c" & i) = "wk"
     Else
         Range("c" & i) = "cj"
     End If
     '删除空白行
     If Range("b" & i) = "" Then
         Range("b" & i).Select
         Selection.EntireRow.Delete
     End If
         
 Next
 
End Sub
 if控制for
 If Range("a" & i) = "" Then
         Exit For
 
And 并且 用于if 条件1 and 条件2 Then
 Or  或者  用法类似And
  

http://www.excelpx.com/home/show.aspx?id=636
 
 
 
你在你的VBA过程里面通过使用专门的控制结构里的条件表达式来做决定。条件表达式是使用关系运算符（见表5-1），逻辑运算符（见表5-2）或者两者结合的表达式。当VB在你程序里遇到条件表达式时，它将评估该表达式是对还是错。
 
 
 
表5-1 VBA中的关系运算符
 
 
运算符
 
 
描述
 
 
=
 
 
等于
 
 
<> 
 
 
不等于
 
 
> 
 
 
大于
 
 
< 
 
 
小于
 
 
>=
 
 
大于等于
 
 
<=
 
 
小于等于
 
 
 
 
表5-2 VBA中的逻辑运算符
 
 
运算符
 
 
描述
 
 
AND
 
 
在采取某行动前，所有的条件都必须为真（TRUE）
 
 
OR
 
 
在采取某行动前，至少有一个条件为真（TRUE）
 
 
NOT
 
 
用来否定条件。如果该条件为真，NOT使它为假；如果条件为假，NOT使它变真
 
 

Sub 处理专业代号()

Dim i As Integer

For i = 1 To 5

    If Range("a" & i) = "文科" Then
     Range("b" & i) = "wk"
    ElseIf Range("a" & i) = "理科" Then
     Range("b" & i) = "lk"
   ElseIf Range("a" & i) = "财经" Then
     Range("b" & i) = "cj"
   End If
Next
End Sub
 
个人错误总结：
 1.文科、理科那个地方，总是忘记加引号;
 2.最后使用else就行了；
 3.删表格一般从后往前删，这时候步长step -1；
 4.写代码之前，需要先分析行为的先后步骤，注意先后关系；
 5.需要理解并且记住的写法：
 
if语句的结构
 
if 	判断条件1 then 
	返回结果1
	else if  判断条件2 then
	返回结果2
	else if  判断条件3 then
	返回结果3
	...
	else if  判断条件n-1 then
	返回结果n-1
	else
	返回结果
end if
 
单元格的写法
 range(“a”&i)