去除空格并换行

zzkof

1        用VBA把D列数据去除最后一个空格及后面的字符，并把第一个空格转成换行符把数据分成两行，输出到U列
2        用VBA把D列数据最后一个空格转成换行符把数据分成两行，输出到V列
3        用VBA把D列数据第一个空格转成换行符把数据分成两行，输出到W列
4        用VBA把D列数据去除最后一个空格及后面的字符，输出到X列
5        用VBA把D列数据去除最后一个空格及前面的字符，输出到Y列
6        用VBA把D列数据去除第一个空号及后前面的字符和最后一个空格及后面的字符【保留第一个空格后到最后一个空格前的数据，去除两边的字符】，输出到Z列
7        用VBA把D列数据去除第一个空格及后面的字符，输出到AA列

饮冰e士

试着做了3列，其他的处理方式类似：

1. Sub myPro()
   
2. Dim Rn&, Rx&, Str1$, Str2$, Pos%
   
3.   Rn = Range("D" & Rows.Count).End(3).Row
   
4.   For Rx = 2 To Rn - 1
   
5.     Str1 = Cells(Rx, "D")
   
6.     Pos = InStrRev(Str1, " ")
   
7.     Str2 = Left(Str1, Pos - 1)
   
8.     Cells(Rx, "U") = Replace(Str2, " ", vbLf)
   
9.     Cells(Rx, "V") = Str2 & vbLf & Mid(Str1, Pos + 1, 9 ^ 9)
   
10.     Pos = InStr(Str1, " ")
    
11.     Cells(Rx, "W") = Left(Str1, Pos - 1) & vbLf & Mid(Str1, Pos + 1, 9 ^ 9)
    
12.   Next Rx
    
13. End Sub

复制代码

joy.008@163.com

Sub JOY240801()

Dim arr, brr, r%, i%, S$, x%, y%
Sheet1.Activate
r = [D1].End(4).Row - 1
arr = Range("D2:D" & r)
ReDim brr(1 To r, 1 To 7)
For i = 1 To UBound(arr)
    S = arr(i, 1)
    x = InStr(S, " ")
    y = InStrRev(S, " ")
    brr(i, 1) = Replace(Mid(S, 1, y - 1), " ", vbLf)
    brr(i, 2) = Replace(S, " ", vbLf)
    brr(i, 3) = Replace(S, " ", vbLf, , 1)
    brr(i, 4) = Mid(S, 1, y - 1)
    brr(i, 5) = Mid(S, y + 1, Len(S) - y)
    brr(i, 6) = Mid(S, x + 1, y - x - 1)
    brr(i, 7) = Mid(S, 1, x - 1)

Next

[U2].Resize(r, 7) = brr

End Sub

joy.008@163.com

去除空格并换行.rar

rysxing

1. str.replace(/^([^ ]*) ((\s|\S)*) [^ ]*$/,'$1\n$2');
   
2. str.replace(/ ([^ ]*)$/,'\n$1');
   
3. str.replace(/ /,'\n');
   
4. str.replace(/ [^ ]*$/,'');
   
5. str.replace(/^(\s|\S)* ([^ ]*)$/,'$2');
   
6. str.replace(/^[^ ]* ((\s|\S)*) [^ ]*/,'$1');
   
7. str.replace(/^([^ ]*) (\s|\S)*$/,'$1');

复制代码

zzkof

饮冰e士 发表于 2024-8-1 11:24
试着做了3列，其他的处理方式类似：

谢谢解答！！！

zzkof

joy.008@163.com 发表于 2024-8-1 11:46
Sub JOY240801()

Dim arr, brr, r%, i%, S$, x%, y%

谢谢解答！！，好用

zzkof

joy.008@163.com 发表于 2024-8-1 11:49
去除空格并换行.rar

数据超过500多行的时候提示‘无效的过程调用或参数’

joy.008@163.com

zzkof 发表于 2024-8-1 14:22
数据超过500多行的时候提示‘无效的过程调用或参数’

实测无提示~~~
或者是你的数据不连贯或其他原因 建议上附件

zzkof

joy.008@163.com 发表于 2024-8-1 16:20
实测无提示~~~
或者是你的数据不连贯或其他原因 建议上附件

D列数据是连贯的，加了忽略错误代码了