如何用新线替换所有空格？

Question

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

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换行符（返回）替换所有空格