Excel单元文本中，如何在文本中的冒号开始分开，分离成单独的两列？请各位大侠帮忙！

harvic

请大侠们帮忙看看，能不能把附件里单元文本中，从其冒号开始分开，分离成独立的两列，非常感谢！

harvic

建议文本中冒号之前内容为一列，冒号及冒号之后内容为一列，在线等各位大侠神回复！多谢！

一指禅62

数据\分列（用冒号 ：）  即可，不必VBA吧

719404338

1. Sub t()
   
2. Dim i, arr
   
3. arr = Range("a1:a" & [a65536].End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5. Range("b" & i) = Split(arr(i, 1), "：")(0)
   
6. Range("c" & i) = Split(arr(i, 1), "：")(1)
   
7. Next i
   
8. End Sub

复制代码

数据分列也可以实现。

harvic

非常感谢各位大神的回复！点赞！！！@一指禅62@719404338