主题：如何把A表中其中一个单元格的数据提取到表B中？？

例如：A数据表中第2列的每个单元格中都有很多数据

其中的数据如下

姓名:sdfdgdg

性别：男

职业：454651213

手机：123456645456

如何把A表中的这些数据提取到表B中，并且在表B中变成

第一例（姓名）：sdfdgdg

第二例（性别）：男

第三例（职业）：454651213

第四例（手机）：123456645456

1、显示编译语句出现在方法体外，是什么情况

2、在中全局代码中，把上面的代码写进去吗

也不对

运行时，显示没有可访问的replace

在运行中出现了，索引超出数组界限，的问题

在运行后表B的单元格中的格式是

第一列：姓名：sdfdgdg

第二例：性别：男

希望出现的格式是

第一例（姓名）：sdfdgdg

第二例（性别）：男

另外，是不是每次要用数据的时候，都要运行一遍，才能有新的数据出来

命令窗口，不能保存代码

做一个按钮，然后贴入代码

For Each r As Row In Tables("表a")
    Dim s() As String = r("第二列").replace(vbcr, "").split(vblf)
    Dim nr As Row = Tables("表B").addnew
    If s.length >= 1 Then nr("姓名") = s(0).replace("姓名:","")
    If s.length >= 2 Then  nr("性别") = s(1).replace("性别:","")
Next