[已解决]如何快速把单元格里的元素拆开？

Baibdu

附件 拆分单元格元素.rar (18.65 KB, 下载次数: 7)

2014-9-29 14:18 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2014-9-29 14:28

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:e" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         xrr = Split(arr(i, 1), "=")
   
6.         For j = 0 To UBound(xrr)
   
7.             arr(i, j + 2) = xrr(j)
   
8.         Next
   
9.     Next
   
10.     Range("a1:e" & r) = arr
    
11. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:e" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         xrr = Split(arr(i, 1), "=")
   
6.         For j = 0 To UBound(xrr)
   
7.             arr(i, j + 2) = xrr(j)
   
8.         Next
   
9.     Next
   
10.     Range("a1:e" & r) = arr
    
11. End Sub

复制代码

grf1973

请看附件。

baksy

B1公式，横拉、下拉；
=TRIM(MID(SUBSTITUTE($A1,"=",REPT(" ",99)),(COLUMN()-2)*100+1,99))