需要用到WPS表格,尝试了很多方法都没有如愿,比如我自己已经在单元格里面把文字排好版了,差不多1000个单元格,现在我需要在首行和尾行在不改变原单元格格式排版的情况下批量加入一段文本,具体案例请看附件,不知道如何写代码,请大佬帮忙写一段,我用的是WPS的JS环境,谢谢 附件链接:[color=rgba(0, 0, 0, 0.85)]工作簿111.xlsx [color=rgba(0, 0, 0, 0.85)]https://www.aliyundrive.com/s/8R6fnGa7axY 大佬, 单元格
没有wps，用excel写了个测试代码，可以试试 [Visual Basic] 纯文本查看 复制代码Sub subRepleaceText() '循环遍历，默认取“A”为原始数据 For i = 2 To Range("a2").End(xlDown).Row '获取原始文本，默认区“A”列 rawContent = Range("a" & i).Value '换行符 tempNextLine = Chr(13) & Chr(10) & Chr(13) & Chr(10) '文本前缀，可自行修改 startText = "浙江某某公司产品简介" '文本后缀，可自行修改 endText = "谢谢您的支持,祝您生活愉快" '拼接文本，文本前缀+换行符+原始文本+换行符+文本后缀 newcontent = startText & tempNextLine & rawContent & tempNextLine & endText '将拼接文本填写到目标列，默认为“B”列 Range("B" & i).Value = newcontent Next End Sub
woflant 发表于 2023-5-26 10:31 没有wps，用excel写了个测试代码，可以试试 [mw_shl_code=vb,true]Sub subRepleaceText() 谢谢,试了,我没装VBA,EXCEL的代码和WPS语言不一样
