WPS的JS宏实现Excel表格合并后自动拆分并填充

本方法实现了对excel表格的自动拆分,并对拆分后的单元格进行自动填充。

示例代码如下:

Windows.Item(TextEdit1.Text).Activate();
    let cel = Range("A1");
    let coNum = SpinButton2.Value;//输入需要处理的列数
    rowNu = Application.ActiveSheet.UsedRange.Rows.Count;//区域中使用的有效行数
    let nummb = 0;
    for(j=1;j<coNum;j++)
    {//处理前coNum列的表格
        for(i=3;i<rowNu;i++)
        {    
            cel = Range(Cells.Item(i,j), Cells.Item(i,j));
            if(cel.MergeCells)
            {//合并区域
                celRC = cel.MergeArea.Rows.Count;//每个合并区域包含的行数
                cel.UnMerge();
                for(n=1;n<celRC;n++)
                {
                    nummb = i+n;
                    Cells.Item(nummb,j).Formula = Cells.Item(i,j).Text;
                }
                i = i+celRC-1;
            }
        }
    }     

另一种情况,是表格没有合并,但是需要把数据进行相同的填充。


示例代买如下

 //向下自动填充
    Windows.Item(TextEdit1.Text).Activate();
    let cel = Range("A1");
    let j = SpinButton1.Value;
    rowNu = Application.ActiveSheet.UsedRange.Rows.Count;//区域中使用的有效行数
    for(i=3;i<rowNu;i++)
    {
        if(Cells.Item(i,j).Text =="")
        {
            Cells.Item(i,j).Formula = Cells.Item(i-1,j).Text;
            Cells.Item(i,j).Font.Color = 255;
        }
    }

  • 2
    点赞
  • 9
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

红狐九尾

你的鼓励是我持续创作的动力!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值