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

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

其中的数据如下

姓名:sdfdgdg

性别：男

职业：454651213

手机：123456645456

 

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

第一例（姓名）：sdfdgdg

第二例（性别）：男

第三例（职业）：454651213

第四例（手机）：123456645456

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

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

 

也不对

 

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

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

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

第一列：姓名：sdfdgdg

第二例：性别：男

希望出现的格式是

第一例（姓名）：sdfdgdg

第二例（性别）：男

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

命令窗口，不能保存代码

用窗体做个按钮，对吗

1、是在窗体中做个按钮，对吗，还是做个按钮，放到功能区（这个怎么放到功能区）

2、每次运行时，新的数据会出来，同样的，旧的数据也会出来，如何，在运行时，只做到只出现新的数据，把旧的去掉

第一次运行得到的结果：张三   男

 

第二次运行得到的结果：张三   男
                                李四   男

 

第三次运行得到的结果：张三   男
                                李四   男

                                王五   男

 

因为每次表A中都有新数据增加，B表需要新的数据，所以（张三   男   李四   男），会被运行好几次，如何才能不重复运行，只要新增加的数据

改成   For Each r As Row In Tables("表a")     Dim s() As String = r("第二列").replace(vbcr, "").split(vblf)     If s.length >= 2 Then         Dim s0 = s(0).replace("姓名:","")         Dim s1 = s(1).replace("性别:","")         Dim fdr As DataRow = DataTables("表B").find("姓名='" & s0 & "' and 性别='" & s1 & "'")         If fdr Is Nothing Then             fdr = DataTables("表B").addnew         End If         fdr("姓名") = s0         fdr("性别") = s1     End If Next

谢谢，这个代码已经可以实现上面的结果了。但是，当表a中姓名的值为空时，又全部提取了表a中已经提取的数据