很多人听到VBA就是觉得高不可攀,因为动不动就要写循环,循环2个字对新手来说就很恐惧,不过现在WPS有了JSA,很多事情不需要循环就可以轻松实现,比如这个场景的需求,隔行上色看下图
用JSA一行代码就可以做到, 甚至连个function都不用写 ,直接在立即窗口写完执行就好了!
代码如下, 对指定区域的行遍历 按行号对2取模余1的就是奇数行
然后&&()后面接要执行的语句即可
[...Range("A2:E20").Rows].forEach(r=>r.Row%2==1 && (r.Interior.Color=255))
除了隔行上色, 也能按条件上色,写法也很简单,只需要修改&&前面的条件,比如找出省份为广东的行标记红色
[...Range("A2:E20").Rows].forEach(r=>r.Range("D1")=='广东' && (r.Interior.Color=255))
就是这么轻松,当然,筛选结果复制到其他位置,也很轻松
比如 筛选出产品力包含导管的行 复制到右侧区域
通通一行代码搞定!!
[...Range("A2:E18").Rows].filter(r=>r.Range("B1").Value2.includes('导管')).unionAll().Copy($("G2"))
更多JSA课程咨询可加我微信EXCEL880B
下面是一位造价工程师同学的jsa学些成功 各位可以参考学习一下
一个造价工程师的JSA+AriScript学习之路
2000元课程
免费学7天
JSA+VBA
点击下方阅读原文 即可观看 也可到B站搜索 Excel880实例教学网