第一步：打开Excel表格，单击需要拆分的第一个单元格
第二步：在编辑栏框选拆封的对象，然后按Ctrl+C进行复制
第三步：按Ctrl+V将上一步复制的内容进行粘贴到同行一个位置
第四步：粘贴后点击下面一个单元格，按Ctrl+E快速信息提取并填充
第五步：如此往复操作即可Ctrl+E是Excel中一个重要的快捷键，像文本拆分，信息提取，信息合并，调整格式以及提取文字中的数字都可以通过这个快捷键来实现。
如果想在一个单元格的文字中拆分出每个单词或每个字符，可以使用 Excel 中的文本函数或 VBA 代码来实现。
以下是一些可能有用的函数和代码：
1. 使用 Excel 函数
- 拆分文本函数：Split(text, delimiter)
- 将文本按照指定的分隔符 (如空格、逗号等) 拆分成多个字符串
- 语法：Split(文本，分隔符)
- 示例：将单元格 A1 中的文本拆分成多个字符串，分隔符为空格
=split(A1, " ")
- 提取字符函数：Mid(text, start, length)
- 从文本中提取指定长度的子字符串
- 语法：Mid(文本，起始位置，长度)
- 示例：提取单元格 A1 中的第 2 个字符到第 4 个字符
=mid(A1, 2, 3)
2. 使用 VBA 代码
- 示例代码：
```vba
Sub SplitText()
Dim ws As Worksheet
Dim rng As Range
Dim str As String
Dim arr() As String
' 设置工作表和单元格
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1")
' 读取单元格中的文本
str = rng.Value
' 使用 Split 函数拆分文本
ReDim arr(1 To UBound(arr) + 1)
arr = Split(str, " ")
' 打印拆分后的文本
For Each str In arr
ws.Cells(1, 2).Value = str
ws.Cells(1, 2).PrintOut
Next str
End Sub
```
以上是一些常用的方法，可以根据具体需求进行选择和修改。
