如何用VBA语言填写横排单元格

Excel中的格式刷、自动填充等功能可以帮助我们完成大量的重复工作，但是也有一些重复工作又比较不规律，这时我们可以借助VBA语言进行批量处理。 

前两篇我们介绍的都是用VBA语言填写竖排单元格，这次我们介绍如何用VBA语言填写横排单元格，而且是从其他工作表中提取数据。

要填写的表：

而我们的数据在另一张工作表中：

 

这时，因为要填写的单元格是横排，再用Range（）方法表示单元格就不太方便，我们需要用到Cells（）表示单元格：

Sub OSC()
    Dim index As Integer            '定义起始单元格
    Const row As Integer = 3        '要填充单元格的行数
    Const start As Integer = 16      '对应工作表开始的行数
    Const finish As Integer = 26    '对应工作表结束的行数
    index = 4
    For i = start To finish Step 2
        If i > finish Then
            Exit For
        End If
        Cells(row, index) = Sheets("OA线路衰耗").Range("B" & i)
        'Cels（x,y)，x和y必须是一个大单元格最小的行列数
        index = index + 3           '单元格递增3
    Next i
End Sub
'添加VX：tim_mz1234，帮你做VBA语言程序

然后点击运行，就得到如下结果：