自动填充区域

命令说明

对指定区域中的单元格执行自动填充

命令原型

Excel.AutoFill(objExcelWorkBook,sheet,srcRange,distRange)

命令参数

参数	必选	类型	默认值	说明
objExcelWorkBook	True	expression	objExcelWorkBook	使用 "打开Excel工作簿"命令（Excel.OpenExcel） 或 "绑定Excel工作簿" 命令（Excel.BindBook）返回的工作簿对象
sheet	True	string	"Sheet1"	如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）
srcRange	True	string	"A1:A2"	指定的区域，支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写
distRange	True	string	"A1:A20"	要填充的区域，必须包括源区域，支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写

运行实例

/*********************************自动填充区域***************************************
命令原型：
    Excel.AutoFill(objExcelWorkBook,"Sheet1","A1:A2","A1:A20")
入参：
    objExcelWorkBook--Excel对象。使用 "打开Excel工作簿"命令（Excel.OpenExcel） 或 "绑定Excel工作簿" 命令（Excel.BindBook）返回的工作簿对象
    sheet--工作表名称。如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）
    srcRange--指定的区域。支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写
    distRange--要填充的区域。必须包括源区域，支持单元格名如"A1:B2"与二维行列数组如[[单元格1行号，单元格1列号],[单元格2行号，单元格2列号]]两种形式，使用单元格名时不区分大小写
注意事项：
    该命令不能单独使用，需配合 "打开Excel"命令（Excel.OpenExcel） 或"绑定Excel"命令（Excel.BindBook）一起使用才能正常使用，单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
Dim num = "2"
objExcelWorkBook = Excel.OpenExcel(@res'''测试.xls''',true,"WPS","","")
TracePrint "-----------------变量拼接使用模式------------------"
Excel.AutoFill(objExcelWorkBook,"Sheet1","A1:A"&num,"A1:A20")
TracePrint "自动填充区域：Excel对象'Sheet1'工作表获取A1:A2的内容，重复填写至A1:A20"
TracePrint "-----------------常规使用模式------------------"
Excel.AutoFill(objExcelWorkBook,"Sheet1","A1:A2","A1:A20")
TracePrint "自动填充区域：Excel对象'Sheet1'工作表获取A1:A2的内容，重复填写至A1:A20"
TracePrint "-----------------数组使用模式------------------"
Excel.AutoFill(objExcelWorkBook,"Sheet1",[[1,1],[2,1]],"[[1,1],[20,1]]")
TracePrint "自动填充区域：Excel对象'Sheet1'工作表获取A1:A2的内容，重复填写至A1:A20"
Excel.CloseExcel(objExcelWorkBook,True)

可视化样例