[已解决]大家好！请帮忙写VBA复式粘贴

weifengcz

大家好！请帮忙写VBA复式粘贴 复制粘贴.rar (8.91 KB, 下载次数: 4)

2016-2-28 16:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

冥王

2016-2-28 17:18

凑合着用吧

1. Sub demo()
   
2.     Dim SplitStr$, arr(1 To 100000, 1 To 1)
   
3.     SplitStr = Range("G3").Value
   
4.     With CreateObject("VBScript.RegExp")
   
5.         .Global = True
   
6.         .MultiLine = True
   
7.         .Pattern = "\s\d+"
   
8.         For Each imat In .Execute(SplitStr)
   
9.             i = i + 1
   
10.             arr(i, 1) = Mid(imat, 2, Len(imat) - 1)
    
11.         Next
    
12.     End With
    
13.     Range("H3").Resize(i, 1).NumberFormatLocal = "@"
    
14.     Range("H3").Resize(i, 1) = arr
    
15. End Sub

复制代码

跳转到最佳答案楼层

冥王

凑合着用吧

1. Sub demo()
   
2.     Dim SplitStr$, arr(1 To 100000, 1 To 1)
   
3.     SplitStr = Range("G3").Value
   
4.     With CreateObject("VBScript.RegExp")
   
5.         .Global = True
   
6.         .MultiLine = True
   
7.         .Pattern = "\s\d+"
   
8.         For Each imat In .Execute(SplitStr)
   
9.             i = i + 1
   
10.             arr(i, 1) = Mid(imat, 2, Len(imat) - 1)
    
11.         Next
    
12.     End With
    
13.     Range("H3").Resize(i, 1).NumberFormatLocal = "@"
    
14.     Range("H3").Resize(i, 1) = arr
    
15. End Sub

复制代码

weifengcz

冥王 发表于 2016-2-28 17:18
凑合着用吧

这样啊，感谢你！解决了