[已解决]如何在EXCEL中将文本数据分列

韦云1968

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-20 12:30

………………

跳转到最佳答案楼层

风林火山

没附件

youfang

就那样
很简单

韦云1968

Book1123.rar (2.06 KB, 下载次数: 8)

2014-3-20 12:17 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr), 1 To 2)
   
5. For i = 1 To UBound(arr)
   
6.     x = Split(arr(i, 1))
   
7.     brr(i, 1) = x(0)
   
8.     brr(i, 2) = x(1)
   
9. Next
   
10. [d:d].NumberFormatLocal = "@"
    
11. Range("d1").Resize(UBound(brr), 2) = brr
    
12. End Sub
    

复制代码

dsmch

………………

大灰狼1976

直接数据分列，附件请测试

1. Private Sub CommandButton1_Click()
   
2. Columns(1).TextToColumns Destination:=Range("A1"), OtherChar:=" "
   
3. End Sub

复制代码