求助：JSA清空J列前后空字符串

金牌1

请大师帮忙修改VBA清空J列前后空字符串的代码：

Sub 清空J列前后空字符串()    ‘不能执行
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("唯")   ' 修改为你的工作表名
    Dim i As Integer
    For i = 3 To 9
        ws.Range("J" & i).Value = Trim(ws.Range("J" & i).Value)
    Next i
End Sub

JSA不能办到，用VBA也行！


   

Again123456

Range("j3:j9").Value2 = Range("j3:j9").Value2.map(v => v.map(e => e.replace(/^s+|\s$/g,"")))

中华美德

Again123456 发表于 2024-8-10 15:28
Range("j3:j9").Value2 = Range("j3:j9").Value2.map(v => v.map(e => e.replace(/^s+|\s$/g,"")))

感谢回复解释，但不能执行

Again123456

1. function test(){
   
2.         Range("j3:j9").Value2 = Range("j3:j9").Value2.map(v => v.map(e => e.replace(/^s+|\s+\u00A0?$/g,"")))
   
3. }

复制代码

你那最后一位不是空格是，Char(160)

Again123456

中华美德 发表于 2024-8-10 16:22
感谢回复解释，但不能执行

清空J列前后空字符串.zip (13.42 KB, 下载次数: 5)

2024-8-10 17:21 上传

点击文件名下载附件

........

Again123456

.....

Again123456

Again123456 发表于 2024-8-10 15:28
Range("j3:j9").Value2 = Range("j3:j9").Value2.map(v => v.map(e => e.replace(/^s+|\s$/g,"")))

晕，我少打了一个加号

中华美德

Again123456 发表于 2024-8-10 17:36
晕，我少打了一个加号

感谢老师解决了这个难题！！！  VBA能够解决吗？
你那最后一位不是空格是，Char(160)  ？
我还以为是2-3个空格。
难怪VBA不能执行。

Again123456

中华美德 发表于 2024-8-10 18:25
感谢老师解决了这个难题！！！  VBA能够解决吗？
你那最后一位不是空格是，Char(160)  ？
我还以为是2- ...

应该是空格，我那个正则后面改成\s+$是可以的。

Again123456

中华美德 发表于 2024-8-10 18:25
感谢老师解决了这个难题！！！  VBA能够解决吗？
你那最后一位不是空格是，Char(160)  ？
我还以为是2- ...

................