今天是学习王佩丰老师VBA课程的第一天,简单处理数据 练习1, 1.根据E内容,在F称呼“先生”或者“女士”, 2.根据B列内容,在C列显示代号“理工”-“LG”,“文科”-“WK”,“财经”-“CJ”。 3.根据D列,删除姓名为空的行 原料数据如下:
处理效果如下:
VBA代码; Sub chuli() ‘定义i为整数类型 Dim i As Integer ’定义for循环 For i = 26 To 2 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"
ElseIf Range("B" & i) = "财经" Then
Range("C" & i) = "CJ"
End If
‘删除姓名为空的行
If Range("D" & i) = "" Then
Rows(i & ":" & i).Select
Selection.Delete shift:=xlUp
End If
Next
End Sub
代码太简单,就这么写吧