WPS宏实现对表格选中区域数据进行遍历读取及动态赋值

金豆呀

于 2024-08-08 15:54:55 发布

阅读量614

点赞数 2

分类专栏： WPS宏学习实践文章标签： wps

本文链接：https://blog.csdn.net/weixin_38943098/article/details/141029112

版权

WPS宏学习实践专栏收录该内容

12 篇文章 0 订阅

订阅专栏

VBA中好像可以直接用forEach进行遍历，JS宏中有对数组的forEach方法，我没试出来。现在做的这一版是用双重FOR循环组合完成的，赋值用的是Formula属性，这个可以写公式。

function JIn()
{
//1、作用于Sheet1页
Application.Worksheets.Item('Sheet1').Activate();
//2、获取当前选中区域的首行和首列
var a = ActiveCell.Cells.Row;
var b = ActiveCell.Cells.Column;

//3、获取当前选中区域有多少行和多少列
var c =Selection.Cells.Address();
var d = Range(c).Columns.Count;
var e = Range(c).Rows.Count;

//4、选中区域的列号放进数组
var arrcol = new Array();
for(var i = 1 ; i <= d ; i++){
arrcol[i-1]=b-1+i;
}

//5、选中区域的行号放进数组
var arrow = new Array();
for(var j = 1 ; j <= e ; j++){
arrow[j-1]=a-1+j;
}

//6、双重FOR循环组装行列号
for (let y = 0; y < arrcol.length; y++) {
for (let x = 0; x < arrow.length; x++) {

    //选中区域读取
    var f = Sheets("Sheet1").Cells.Item(arrow[x],arrcol[y]).Value2;
    //console.log("选中区域的值："+f);
    //选中区域后22列及前9列单元格的地址
    var g =Sheets("Sheet1").Cells.Item(arrow[x],arrcol[y]+22).Address();
    var h =Sheets("Sheet1").Cells.Item(arrow[x],arrcol[y]-10).Address();
    //console.log("选中区域的地址："+h);
    //选中区域赋值
    Sheets("Sheet1").Cells.Item(arrow[x],arrcol[y]).Formula='=IF('+h+'<>"",'+g+',"")';
}
}
}