換行單元格文本而不將任何單詞字符分成兩行

Question

正如您在上圖中看到的，我需要將單元格文本換行，而不將任何單詞字符分成兩行。
我也想保留列寬。
我把問題用粗體字寫成粗體來說明問題。
這些是沒有任何換行的初始單元格文本：
壓力容器
基礎設施、平台設施
跟進夾子，弱點
我的實際數據集是 11k 行。 感謝您的所有幫助。

Sub Wraptext()
 
   Range("A2:A4").Wraptext = True
 
End Sub

Answer 1

這個答案的想法完全是 go 到@Ike 和@Brennan。
我只是將其轉換為 VBA 代碼，以方便遇到相同問題的任何人。

Sub Replace_non_breaking_space()
 
'Chr(160) is the (non_breaking_Space)
'Chr(32) is the normal Space
 
  Dim ws As Worksheet
  Set ws = ActiveSheet  'adapt to your need
 
  Dim cel As Range
   For Each cel In ws.Range("A2:A4")
      cel = Application.Trim(Replace(cel, Chr(160), Chr(32)))
   Next cel
 
  ws.Range("A2:A4").WrapText = True
 
End Sub

Answer 2

您的數據中可能有“壞空格”，這意味着 Excel 沒有正確地將空格字符識別為分割文本的首選位置。 嘗試復制 Pressure 和 Vessel 之間的空格字符，然后查找並替換為正常的空格字符。

編輯：既然您知道您的空間是 160，請在 alt+0160 上查找替換為 alt+0032