[已解决]關于清除軟回車的求助 - 急

010203400

1. Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

复制代码

一直以來，都是用以上來清除軟回車的，并且這種軟回車在單元格是可以看見的。

附件中的料號，最后一個料號的最后面，是看不到軟回車的，但后面有3個空格，看不見，但用Backspace是可以刪除的，請問這個要怎么刪除啊。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-10-24 19:12

换个思路，把前面部分取出来就行了，结果生成在C列
不好意思，请把代码内的MsgBox Len(arr(i, 1))删除，我确认用的

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&, reg As Object
   
3. arr = [a1].CurrentRegion
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. reg.Pattern = "[\w-]+"
   
6. For i = 1 To UBound(arr)
   
7.   arr(i, 1) = reg.Execute(arr(i, 1))(0)
   
8. Next i
   
9. [c1].Resize(UBound(arr)) = arr
   
10. End Sub

复制代码

跳转到最佳答案楼层

CheryBTL

试试:

1. Char(63)

复制代码

010203400

CheryBTL 发表于 2013-10-20 14:46
试试:

不行唉，這樣子就將我這個工作表的所有內容全部刪除了。

CheryBTL

010203400 发表于 2013-10-20 17:25
不行唉，這樣子就將我這個工作表的所有內容全部刪除了。

嗯，如果char(63)不行，可以直接取最右边的字符串即可，如函数：

1. =SUBSTITUTE(A12,RIGHT(A12),)

复制代码

010203400

CheryBTL 发表于 2013-10-20 22:22
嗯，如果char(63)不行，可以直接取最右边的字符串即可，如函数：

這個用宏如何寫啊？
關鍵是這個字符串的個數不固定。

大灰狼1976

换个思路，把前面部分取出来就行了，结果生成在C列
不好意思，请把代码内的MsgBox Len(arr(i, 1))删除，我确认用的

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&, reg As Object
   
3. arr = [a1].CurrentRegion
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. reg.Pattern = "[\w-]+"
   
6. For i = 1 To UBound(arr)
   
7.   arr(i, 1) = reg.Execute(arr(i, 1))(0)
   
8. Next i
   
9. [c1].Resize(UBound(arr)) = arr
   
10. End Sub

复制代码