如何用新行replace所有空格？

我有一个表头，其中包含空格

First Name Last Name Average Level Degree _________________________________________________ Mike Lowel 25 Stan Wilson 35 Papa Peterson 15 

我需要它看起来像这样

  First Last Average Name Name Level Degree _____________________________________________ Mike Lowel 25 Stan Wilson 35 Papa Peterson 15 

这是我试过的

 Sub test() myString = ThisWorkbook.Worksheets(1).Range("a1").Value ThisWorkbook.Worksheets(1).Range("a1").Value = Replace(myString, " ", CHAR(10)) ThisWorkbook.Worksheets(1).Range("a1").WrapText = True ThisWorkbook.Worksheets(1).Range("a1").EntireRow.AutoFit myString = ThisWorkbook.Worksheets(1).Range("b1").Value ThisWorkbook.Worksheets(1).Range("b1").Value = Replace(myString, " ", CHAR(10)) ThisWorkbook.Worksheets(1).Range("b1").WrapText = True ThisWorkbook.Worksheets(1).Range("b1").EntireRow.AutoFit End Sub 

但是，它会抛出一个错误。 另外，我不确定如何遍历所有的字母。 有没有更有效的方法。 我需要这些标题看起来不错：我需要得到相同的效果，如果我点击Alt+Enter 。 每个单词应该单独显示

Answer 1

你可以用一行代码来做到这一点：

 Range("A1:C1").Replace " ",vblf 

在该范围内，它将用VB换行（返回）replace所有空格