单元格里只要碰到数字就强制换行

清咖啡屋

Pre-requisites:1. IM client has been installed 2. MSN IM account has been prov

我希望能换成：
Pre-requisites:
1. IM client has been installed
2. MSN IM account has been prov

谢谢了！

honggexjq

用VBA简单～

ExcelHub

会执行VBA吧？
执行前选中你要转换的单元格区域。

1. Sub SplitRowByNum()
   
2.     Dim R As Range
   
3.     Dim myRegExp As Object
   
4.     Dim NewValue As String
   
5.    
   
6.     Set myRegExp = CreateObject("vbscript.regexp")
   
7.     myRegExp.Global = True
   
8.     myRegExp.Pattern = "\d+[^\d]+"
   
9.    
   
10.     For Each R In Application.ActiveWindow.RangeSelection
    
11.         NewValue = R.Value2
    
12.         Set mymatches = myRegExp.Execute(R.Value2)
    
13.         For I = 0 To mymatches.Count - 1
    
14.            NewValue = Replace(NewValue, mymatches(I), Chr(13) + Chr(10) + mymatches(I))
    
15.         Next
    
16.         R.Value2 = NewValue
    
17.     Next
    
18. End Sub

复制代码

如果还有什么问题不知道，加我的QQ群，80871424 （注明Excel）