用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)
            Range("L" & index).Value = fa + Range("B" & i)
            index = i + 3
            Range("D" & index).Value = "二级收"
            Exit For
        End If
        '进行单元格赋值
        index = i + 2
        Range("D" & index).Value = shou + Range("B" & i)
        Range("L" & index).Value = fa + Range("B" & i)
        index = i + 3
        Range("D" & index).Value = fa + Range("B" & (i + 4))
        Range("L" & index).Value = shou + Range("B" & (i + 4))
        Next i
End Sub
'加VX：tim_mz1234，帮你做VBA语言

 点击“运行”建，所有表格瞬间填好：

 再对特殊的空格稍加修改，就OK了。可以说用几秒钟的时间就完成了几个小时的工作。