linux系统下的WPS宏代码自动填充,实现自动下拉填充最后一行函数公式

应用场景:

利用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行*/
}

  • 4
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
根据提供的引用内容,可以通过以下步骤实现WPS实现多选: 1. 首先需要启用WPS功能。在WPS中,点击“文件”->“选项”->“高级”,勾选“在打开文档时始终启用”选项,然后点击“确定”按钮。 2. 在WPS中打开你想要修改的表格,然后按下“Alt + F11”快捷键,打开VB编辑器。 3. 在VB编辑器中,双击你想要修改的sheet,然后将下方代码粘贴到代码编辑器中。 ```VBA Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Column = 1 Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & "," & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Exitsub: Application.EnableEvents = True End Sub ``` 4. 然后点击“文件”->“保存”按钮保存修改后的表格。 5. 在WPS中,点击“开发工具”->“”->“创建”,输入名称,然后点击“创建”按钮。 6. 在编辑器中,将下方代码粘贴到代码编辑器中。 ```VBA Sub EnableMultiSelect() Dim cell As Range For Each cell In Selection If cell.Validation.Type = 3 Then cell.Validation.Delete cell.Validation.Add xlValidateList, xlValidAlertStop, xlBetween, Join(Split(cell.Value, ","), Chr(10)) End If Next End Sub ``` 7. 然后点击“文件”->“保存”按钮保存修改后的。 8. 在WPS中,选中你想要设置为下多选的单元格,然后点击“数据”->“数据验证”->“设置数据验证”,在“设置数据验证”对话框中选择“列表”选项,然后在“来源”文本框中输入下选项,每个选项之间用逗号隔开。 9. 然后点击“确定”按钮,关闭“设置数据验证”对话框。 10. 最后,在WPS中选中你想要设置为下多选的单元格,然后按下“Alt + F8”快捷键,选择你刚刚创建的,然后点击“运行”按钮即可。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值