Excel中的格式刷、自动填充等功能可以帮助我们完成大量的重复工作,但是也有一些重复工作又比较不规律,这是我们可以借助VBA语言进行批量处理。
比如在下面的表格中,站名一列是必须手动输入,但我们需要在EDFA一列中填写发XX,收XX,如果再用手动输入,那中国那么大,估计要手动打字一天了。像这种有强烈规律性但是又不完全重复的操作,我们就可以借助VBA语言进行批量处理。
在“查看代码”页输入VBA程序:
Sub for_OAPA()
Dim shou As String '收
Dim fa As String '发
Dim index As Integer '单元格坐标
shou = "收" '赋值收
fa = "发" '赋值发
For i = 75 To 121 Step 2 '划定需要执行代码的区间
If i > 121 Then
Exit For
End If
If i = 121 Then '最后一个单元格特殊,需要单独处理
index = i + 2
Range("D" & index).Value = shou + Range("B" & i)