在一个单元格有2行文字，用什么公式可以取第一行

xiyongming

在一个单元格里有2行文字，其中第一行中文，Alt+enter后英文同一单元格第二行。现在只需要单独保留中文或者英文，用什么方法可以实现？清大神们指点下。

海信LED39K680X3DU     Hisense LED39K680X3DU-3D-4K
海信LED32K600X3D-LED 液晶电视     Hisense LED32K600X3D-LED BL-LED

1578278106

你的提问前后矛盾：标题上说用什么公式取第一行？正文又说只需单独保留中文或英文，可是看截图第一行既有中文又有英文，实在是不懂你的意思。

xiyongming

1578278106 发表于 2014-6-1 10:27
你的提问前后矛盾：标题上说用什么公式取第一行？正文又说只需单独保留中文或英文，可是看截图第一行既有中 ...

这2个单元格我都取中文部分内容，有啥方法。

1578278106

Function hanzi(str As Range)
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    With reg
        .Global = True
        .MultiLine = True
        .Pattern = "[!-~]"
        hanzi = .Replace(str.Value, "")
    End With
    Set reg = Nothing
End Function

1578278106

xiyongming 发表于 2014-6-1 18:11
这2个单元格我都取中文部分内容，有啥方法。

1. Function hanzi(str As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     With reg
   
5.         .Global = True
   
6.         .MultiLine = True
   
7.         .Pattern = "[!-~]"
   
8.         hanzi = .Replace(str.Value, "")
   
9.     End With
   
10.     Set reg = Nothing
    
11. End Function
    
12. 
    

复制代码

1578278106

1. Function hanzi(str As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     With reg
   
5.         .Global = True
   
6.         .MultiLine = True
   
7.         .Pattern = "[!-~]"
   
8.         hanzi = .Replace(str.Value, "")
   
9.     End With
   
10.     Set reg = Nothing
    
11. End Function
    
12. 
    

复制代码

1578278106

怎么发不了贴？

1578278106

1. Function hanzi(str As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     With reg
   
5.         .Global = True
   
6.         .MultiLine = True
   
7.         .Pattern = "[!-~]"
   
8.         hanzi = .Replace(str.Value, "")
   
9.     End With
   
10.     Set reg = Nothing
    
11. End Function
    
12. 
    

复制代码

summer201401

有个简单办法
复制所有内容，粘贴到TXT文件中，然后再复制粘贴回EXCEL中，最后把空格替换掉。