【回答社区问题】在每个后面无数字字母后面插入"1"

⭐【原帖】

⭐【题目内容】

如下图，将A列数据转换为B列的效果，即在A列每个后面无数字的字母后面插入“1”，用JSA代码将结果写入D3:D8区域。

⭐【操作效果】

⭐【JSA代码】

按ALT+F11打开WPS宏编辑器，复制下方代码粘贴到编辑器中。

function 正则匹配字母后非数字插入1(){

//获取最后一行数据的行号

n=Range('a'+Rows.Count).End(3).Row

//从第3行循环到最后一行

for(i=3;i<=n;i++){

//将A列的内容赋值给变量str

let str = Cells.Item(i,'a').Value2;

//用正表达式将字母后面不为数字内容替换为“字母1”，g表示全部匹配，$1表示匹配到的第一个值

let t = str.replace(/([a-zA-Z])(?![0-9])/g, "$11");

//将替换后的内容写入D列

Cells.Item(i,'d').Value2=t

}

}

⭐【往期内容】

1.对明细数据分类汇总，统计库存

2.两表按关键字相互链接，快速查找定位

3.批量创建和删除工作表

4.批量将工作表拆分为独立工作簿

5.批量将工作簿合并为工作表，免费实现会员功能

6.实时查询数据，高端的效果，往往只需要简单的代码

7.按照内容拆分工作表，免费实现会员功能

8.批量合并工作簿，免费实现终极会员功能

9.自动核对报表报送情况，表姐表妹的福音来了

10.以指定单元格内容批量命名表格文件

11.用工作表做数据库，将出库单保存为出库明细

12.用AI拆分工作表，一句话就能搞定

13.在表格中按名称批量插入对应图片

14.按分隔符拆分数据

15.合并同类项，按部门合并姓名，并用顿号隔开

⭐【题目素材下载】

https://kdocs.cn/l/crqyX1YVcZpj