UC知道VBS 操作 EXCEL 的下拉复制问题 ？难难
来源：百度知道 编辑：UC知道 时间：2024/09/21 17:58:36
VBS 如何实现 EXCEL 的下拉复制操作 ？？
在EXCEL 中，一个单元格里的内容可以复制到下面的列里，只需在单元格的右下角，出现十字，按住往下拉，可以复制单元格的内容到往下的单元格里，往下拉多少都行，用VBS 如何实现？
换个问法，如何复制相同的内容都EXCEL 的整列中，用VBS 实现。 ？
自己琢磨出来啦~
oExcel.ActiveSheet.Range("b1").Copy
oExcel.ActiveSheet.Range("b2:b300").PasteSpecial
在EXCEL 中，一个单元格里的内容可以复制到下面的列里，只需在单元格的右下角，出现十字，按住往下拉，可以复制单元格的内容到往下的单元格里，往下拉多少都行，用VBS 如何实现？
换个问法，如何复制相同的内容都EXCEL 的整列中，用VBS 实现。 ？
自己琢磨出来啦~
oExcel.ActiveSheet.Range("b1").Copy
oExcel.ActiveSheet.Range("b2:b300").PasteSpecial
可以参考类似下面的代码，关键函数是AutoFill。
Option Explicit
Sub AutoFillRange()
Dim oSourceRange As Range, oFillRange As Range
Set oSourceRange = Worksheets("Sheet1").Range("A1:A2")
Set oFillRange = Worksheets("Sheet1").Range("A1:A20")
oSourceRange.AutoFill Destination:=oFillRange
End Sub