应用场景:
利用linux系统WPS宏编辑器,对最后一行(含有函数公式)进行一键自动下拉填充(复制函数公式),提高办公效率。
关键词:
linux系统,wps,v10银河麒麟,宏编辑器,自动填充,函数公式,js宏代码,下拉填充。
环境:
linux系统 kylin v10银河麒麟
WPS软件11.8.2.10125,宏编辑器
大致操作路径:
1.录制新宏并修改代码
WPS——开发工具——录制新宏——宏名称改为“复制公式”——停止录制——WPS宏编辑器——找到刚录制的代码,清空所有代码,复制粘贴我的代码
2.调整成适合自己的代码
根据实际情况,调整需要下拉复制的行数(即图中的20)、整个函数公式的宽度(即图中的BE)
3.插入按钮并指定宏
插入——按钮——在表格中拉出按钮大小——右键按钮选择“指定宏”——选择刚才自己修改好的宏——确定
4.点击按钮即可运行宏代码
代码(含代码解释):
var xlongth1 = Sheets.Item("收文处理").Range("A"+Rows.Count.toString()).End(xlUp).Row/*计算A列现有的长度*/
var xlongth2 = xlongth1+20/*现有行数+延长复制公式的行数(可自行修改)*/
function 复制公式()
{
Sheets.Item("收文处理").Range("A"+xlongth1+":BE"+xlongth1).Select();/*选定含有函数公式的最后一行,A:BE为含有函数公式的宽度(可自行修改)*/
Selection.AutoFill(Range("A"+xlongth1+":BE"+xlongth2), xlFillDefault);/*下拉延长复制公式20行*/
}