想实现range("a4:b4")下拉填充至range("a4:b34"),该如何表述？
Excel表格名称为sheets("模板")，谢谢！

[此贴子已经被作者于2023-7-17 16:23编辑过]

Sub FillDown()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlRange As Excel.Range

    ' 创建Excel应用程序实例并获取活动工作簿和工作表
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("path_to_your_excel_file.xlsx")
    Set xlSheet = xlBook.Worksheets("Sheet1")

    ' 设置需要填充的范围
    Set xlRange = xlSheet.Range("A4:B4")

    ' 使用AutoFill方法将范围下拉填充至指定区域
    xlRange.AutoFill Destination:=xlSheet.Range("A4:B34")

    ' 保存并关闭工作簿
    xlBook.Save
    xlBook.Close

    ' 退出Excel应用程序
    xlApp.Quit

    ' 释放对象变量
    Set xlRange = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

收到的鲜花

• 扑腾 于 2023-07-18 12:29 送鲜花  1朵   附言：非常感谢

非常感谢斑竹的热心帮助，居然写这么完整，谢谢！