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语言程序
然后点击运行,就得到如下结果: