[已解决]请教个问题 如何加入将B列的数字分开提取到别的行列

hanjia

比如更新后B5的数字是这样的  9,3,10,7,8,2,4,1,5,6
我想把他再分开提取到别的行列
10个数字分别提取到 L至U列
L        M        N         O       P        Q        R        S       T        U
9        3        10        7        8        2        4        1        5        6


工作簿.zip (21.08 KB, 下载次数: 3)

2015-4-16 14:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-16 14:29

1. Sub 分列()
   
2.     arr = Range("b5:b" & [b65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To 10)
   
4.     For i = 1 To UBound(arr)
   
5.         x = arr(i, 1)
   
6.         If Len(x) > 0 Then
   
7.             xrr = Split(x, ",")
   
8.             For j = 0 To UBound(xrr)
   
9.                 brr(i, j + 1) = xrr(j)
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     [L:U].ClearContents
    
14.     [L5].Resize(UBound(brr), 10) = brr
    
15. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 分列()
   
2.     arr = Range("b5:b" & [b65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr), 1 To 10)
   
4.     For i = 1 To UBound(arr)
   
5.         x = arr(i, 1)
   
6.         If Len(x) > 0 Then
   
7.             xrr = Split(x, ",")
   
8.             For j = 0 To UBound(xrr)
   
9.                 brr(i, j + 1) = xrr(j)
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     [L:U].ClearContents
    
14.     [L5].Resize(UBound(brr), 10) = brr
    
15. End Sub

复制代码

grf1973

请看附件。

hanjia

grf1973 发表于 2015-4-16 14:32
请看附件。

是对的   谢谢  
有个问题就是能不能把分列加到按钮1里面去？
这样要点完提取后再点分列他才能分出来
如果能合到一起的话 点一下提取后他就自动分出来  就不用再去点分列了

grf1973

第一个按钮代码结束前加一句call 分列 就行了