[已解决]数组的数据中带有两个符号，如何将这两个符号间隔的数据拆开来

秋意正浓

如题，如图，详见附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-12-6 10:21

1. Sub d()
   
2. Dim arr, crr, crr1, i&
   
3. arr = Range("a1:a" & [a65536].End(3).Row)
   
4. ReDim crr1(1 To UBound(arr), 1 To 3)
   
5. For i = 1 To UBound(arr)
   
6.   crr = Split(arr(i, 1), "/")
   
7.   crr1(i, 1) = crr(0)
   
8.   crr1(i, 2) = crr(1)
   
9.   crr1(i, 3) = crr(2)
   
10. Next
    
11. Range("c1").Resize(UBound(crr1), 3) = crr1
    
12. End Sub

复制代码

跳转到最佳答案楼层

baksy

C1：=LEFT(A1,SEARCH("/",A1,1)-1)
D1：=MID(A1,SEARCH("/",A1,1)+1,SEARCH("/",A1,SEARCH("/",A1,1)+1)-SEARCH("/",A1,1)-1)
E1：=MID(A1,SEARCH("/",A1,SEARCH("/",A1,1)+1)+1,20)

hwc2ycy

直接split函数就可以解决。

hwc2ycy

或者直接录制一个分列的功能也是可以的。

秋意正浓

如果用代码实现呢？谢谢各位。

秋意正浓

如果用代码实现呢？谢谢各位。

秋意正浓

我想到一个思路，就是第一个连接符号用/，第二个连接符号用\，
第一分拆分/，第二次拆分\。

上清宫主

秋意正浓 发表于 2013-12-5 15:53
我想到一个思路，就是第一个连接符号用/，第二个连接符号用\，
第一分拆分/，第二次拆分\。

你不都拆出来了吗？
Sub d()
Dim arr, crr, crr1(1 To 100, 1 To 3)

arr = Range("a1:a5")
For i = 1 To 5
crr = Split(arr(i, 1), "/")
crr1(i, 1) = crr(0)
crr1(i, 2) = crr(1)
crr1(i, 3) = crr(2)
Next
Range("c1").Resize(UBound(crr1), 3) = crr1
End Sub

大灰狼1976

1. Sub d()
   
2. Dim arr, crr, crr1, i&
   
3. arr = Range("a1:a" & [a65536].End(3).Row)
   
4. ReDim crr1(1 To UBound(arr), 1 To 3)
   
5. For i = 1 To UBound(arr)
   
6.   crr = Split(arr(i, 1), "/")
   
7.   crr1(i, 1) = crr(0)
   
8.   crr1(i, 2) = crr(1)
   
9.   crr1(i, 3) = crr(2)
   
10. Next
    
11. Range("c1").Resize(UBound(crr1), 3) = crr1
    
12. End Sub

复制代码