(3)要把中文的逗号与英文的逗号统一并且删除掉,(4)一个姓名一行,拆分后后面的“家庭编号”“家庭总人数”“家庭地址”要对应相应的人员信息中。...s = "岳不群,宁中则,岳灵珊"
MsgBox s
s = Replace(s, ",", ",")
MsgBox s
End Sub
(2)把统一到英文形式的符号后文本用...Split函数利用逗号”,”进行分割为数组
(3)完整的代码如下:
Sub 拆分有逗号分隔的单元格数据为多行()
Dim arr, brr(), i%, j%, k%
With Sheets...i, 5)
brr(k, 6) = arr(i, 6)
Next j
Next i
End With
With Sheets...[a1:F2] = Sheets("传来的数据").