格式转换，数据分列

excel渣渣

格式转换不来，附件已上传，求大神解答
附件里面有模板，我用excel导入后，但是分列不成功，
我想把单词的音标与单词分为两列，，然后再转换，但是分列不来。。求大神帮助 单词录入格式.zip (64.42 KB, 下载次数: 9)

2015-12-23 09:21 上传

点击文件名下载附件

sry660

把你要的效果模拟一下

grf1973

简单分了一下，看看对不对。

1. Sub 分列()
   
2.     arr = Sheets(1).[a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 100)
   
4.     Rows("2:10000").Clear
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 1)
   
7.         If Val(x) > 0 Then
   
8.             n = n + 1
   
9.             c = 4
   
10.             brr(n, 1) = Val(x)
    
11.             x = Trim(Replace(x, Val(x) & ".", ""))
    
12.             brr(n, 2) = Split(x, "[")(0)
    
13.             If InStr(x, "[") > 0 Then brr(n, 3) = "[" & Split(x, "[")(1)
    
14.         Else
    
15.             If InStr(x, ":") > 0 Then
    
16.                 brr(n, 4) = x
    
17.             Else
    
18.                 c = c + 1
    
19.                 brr(n, c) = x
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     [a2].Resize(n, 10) = brr
    
24. End Sub
    

复制代码

excel渣渣

grf1973 发表于 2015-12-23 10:41
简单分了一下，看看对不对。

谢谢了，不过还是不行，word一粘贴，还是两行，算了，手打吧，谢谢~

心正意诚身修

excel渣渣 发表于 2015-12-23 22:17
谢谢了，不过还是不行，word一粘贴，还是两行，算了，手打吧，谢谢~

那你辛苦了。