用VBA语言批量填写Excel表格

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)