[已解决]請問如何將長度不一的文本分別存放到儲存格?

e2solo

各位老師
我利用 . 作為分割符，如下表

7.8.13.14
1.2.3.4.5.6.9
2.3.13.14.26
20.35
24
23.33
18.38.39.44
請問如何在各個儲存格分別放入數字?

7	8	13	14
1	2	3	4	5	6	9
2	3	13	14	26
20	35
24
23	33
18	38	39

謝謝老師

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-19 21:33

1. Sub TEST()
   
2.   S = Range("A1:A" & Range("A65536").End(3).Row)
   
3.   ReDim ARR(1 To UBound(S), 1 To 50)
   
4.   For I = 1 To UBound(S)
   
5.     F = Split(S(I, 1), ".")
   
6.     For J = 0 To UBound(F)
   
7.       ARR(I, J + 1) = F(J)
   
8.     Next
   
9.   Next
   
10.   Range("D1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

hrpotter

数据-分列-分割符号用"."

队员甲

菜单——数据——分列——-分割符号用"."

e2solo

hrpotter 发表于 2012-2-19 21:04
数据-分列-分割符号用"."

請問如何用vba的方式表達?

hrpotter

e2solo 发表于 2012-2-19 21:09
請問如何用vba的方式表達?

1. Sub 分列()
   
2.     Dim rg As Range
   
3.     Dim ar
   
4.     For Each rg In Range("a1:a7")
   
5.         ar = Split(rg, ".")
   
6.         rg.Offset(0, 3).Resize(1, UBound(ar) + 1) = ar
   
7.         Erase ar
   
8.     Next
   
9. End Sub

复制代码

zjdh

1. Sub TEST()
   
2.   S = Range("A1:A" & Range("A65536").End(3).Row)
   
3.   ReDim ARR(1 To UBound(S), 1 To 50)
   
4.   For I = 1 To UBound(S)
   
5.     F = Split(S(I, 1), ".")
   
6.     For J = 0 To UBound(F)
   
7.       ARR(I, J + 1) = F(J)
   
8.     Next
   
9.   Next
   
10.   Range("D1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
    
11. End Sub
    

复制代码

zjdh

附件忘发了：
分解.rar (14.71 KB, 下载次数: 3)

2012-2-19 21:36 上传

点击文件名下载附件

e2solo

zjdh 发表于 2012-2-19 21:37
附件忘发了：

謝謝老師
謝謝老師

windimi007

zjdh 发表于 2012-2-19 21:33

学习了，zjdh老师出手就是不一样啊！{:3912:}

bluexuemei

学习了，很不错！