用VBA写一段代码，能够将一个单元格里面的内容拆分成多个单元格

### 回答1：

Sub SplitCell 每个单元格的内容sName Dim sName as String
Dim sSplit as String
sName = Cells(1,1).Value
sSplit = Split(sName,",")
For i = 0 to UBound (sSplit)
Cells(1,i+1).Value = sSplit (i)
Next i
End Sub

### 回答2：
使用VBA编写代码，可以将一个单元格中的内容拆分成多个单元格。以下是一个使用VBA的例子：

Sub 拆分单元格内容()
Dim 原单元格 As Range
Dim 分隔符 As String

' 设置原单元格为A1
Set 原单元格 = Range("A1")

' 设置分隔符为逗号
分隔符 = ","

' 拆分单元格内容到相邻单元格
原单元格.TextToColumns Destination:=原单元格.Offset(0, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=True, _
OtherChar:=分隔符

' 清除原单元格内容
原单元格.ClearContents
End Sub

在这个例子中，我们使用A1单元格作为原单元格，并将其内容拆分到相邻单元格。我们使用逗号作为分隔符，你可以根据需要更改分隔符。最后，我们清除了原单元格内容。

只需在Excel中的Visual Basic for Applications（VBA）编辑器中创建一个新的模块，然后将以上代码复制到模块中。你现在可以执行该宏，它将会拆分原单元格内容并清楚原单元格内容。

### 回答3：
在VBA中，我们可以使用Split函数和Range对象来实现将一个单元格的内容拆分成多个单元格。

首先，我们需要选择要拆分的单元格，并将其内容存储在一个变量中，例如：

Dim cellContent As String
cellContent = Range("A1").Value

这里假设要拆分的单元格为A1，并将其内容存储在cellContent变量中。

接下来，我们可以使用Split函数将字符串按照指定的分隔符拆分成多个部分。假设我们的分隔符是逗号(,)，则可以使用以下代码：

Dim splitContent As Variant
splitContent = Split(cellContent, ",")

splitContent将存储拆分后的内容数组。

然后，我们需要将拆分后的内容填充到多个单元格中。假设要将拆分后的内容填充到A1、B1、C1等连续的单元格中，可以使用以下代码：

Dim i As Integer
For i = 0 To UBound(splitContent)
    Range("A1").Offset(0, i).Value = splitContent(i)
Next i

在上述代码中，通过循环遍历拆分后的内容数组，并使用Offset方法指定填充到的目标单元格。

最后，拆分后的内容将会填充到相应的单元格中。

以上是一个简单的VBA代码示例，通过使用Split函数和Range对象，我们可以将一个单元格的内容拆分成多个单元格的内容。

注意：在使用这段代码之前，请确保已经在VBA编辑器中引用了Microsoft Excel对象库。