使用Vb代码将单元分成多行

Question

因为我是Vb excel的新手。有人可以建议我如何使用Vb代码将单元格拆分成多行。我尝试了很少的代码但没有工作。

示例数据：

Answer 1

这是一个让你入门的例子。

此代码将采用您突出显示的活动单元格，并按空格分解字符串，将其扩展到第1行中的列。

示例：

1. Cell A5包含＆＃34; Hello World Test＆＃34;
2. 突出显示单元格A5
3. 调用子

4. 代码将执行，您现在将拥有＆＃34; Hello＆＃34;在A1，＆＃34;世界＆＃34;在A2中，＆＃34;测试＆＃34;在A3

   Sub Example()
       Dim txt As String
       Dim i As Integer
       Dim fullname As Variant
   
       txt = ActiveCell.Value
       fullname = Split(txt, " ")
       For i = 0 To UBound(fullname)
           Cells(1, i + 1).Value = fullname(i)
           MsgBox fullname(i)
       Next i
   End Sub