[已解决]请问如和把表格中的中英文分开

铁观音621

高手们好，我的工作簿是3000多个英文单词，现在我有几个要求请大家帮助解决，谢谢！
1. 请将A列的内容按照B\C列的方式进行拆分，要把词性符号（如n.是名词）和中文放在一起（单分成一列也可）
2.拆分完成后，按照表2的样式打印，即每行有两个单词（就像word文档的分栏一样）
3.表格做好后，执行自动换行和自动适应行高。
3.如果可以的话，请保证每页显示50行（此条不是必须的），谢谢啦

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-9 16:09

这样行吗？小改了一下规则。
如果提取不正确的话，查一下源数据。

跳转到最佳答案楼层

grf1973

只做了分列，其他未考虑。

1. Sub tt()
   
2.     arr = Range("a1:a" & [a65536].End(3).Row)
   
3.     ReDim brr(1 To UBound(arr) * 2, 1 To 2)
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "\s\w+?\..+"
   
7.         For i = 1 To UBound(arr)
   
8.             x = arr(i, 1)
   
9.             If .test(x) Then
   
10.                 n = n + 1
    
11.                 brr(n, 1) = Trim(.Replace(x, ""))
    
12.                 brr(n, 2) = Trim(.Execute(x)(0))
    
13.             Else
    
14.                 brr(n, 2) = brr(n, 2) & " " & x
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     [b1].Resize(n, 2) = brr
    
19. End Sub
    

复制代码

铁观音621

grf1973 发表于 2017-2-9 11:34
只做了分列，其他未考虑。

您好，非常感谢，初始目的已经基本达到，点击按钮后确实实行了分裂，但是好像很多地方跳行了，3000度行调整起来还是很麻烦的，能否在修改一下子呢？谢谢！！！

grf1973

这样行吗？小改了一下规则。
如果提取不正确的话，查一下源数据。

铁观音621

grf1973 发表于 2017-2-9 16:09
这样行吗？小改了一下规则。
如果提取不正确的话，查一下源数据。

您好，非常感谢，简直是太完美了！！！超赞！！！