[已解决]请老师赐教：以关键词为条 ...

水木

请老师赐教：以关键词为条件复制。.rar (31.71 KB, 下载次数: 6)

2016-9-20 20:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-9-20 21:02

1. Sub Greenhand()
   
2.     Dim i&
   
3.     Dim arr
   
4.     Dim brr()
   
5.     arr = Range("g2", Cells(65536, "g").End(3))
   
6.     ReDim brr(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If Left(arr(i, 1), 1) = "（" Then
   
9.             brr(i, 1) = Mid$(arr(i, 1), 2, InStr(arr(i, 1), "。") - 2)
   
10.         End If
    
11.     Next
    
12.     [f2].Resize(UBound(arr), 1) = brr
    
13. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

这个不是有代码了吗？

望帝春心

1. Sub Greenhand()
   
2.     Dim i&
   
3.     Dim arr
   
4.     Dim brr()
   
5.     arr = Range("g2", Cells(65536, "g").End(3))
   
6.     ReDim brr(1 To UBound(arr), 1 To 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If Left(arr(i, 1), 1) = "（" Then
   
9.             brr(i, 1) = Mid$(arr(i, 1), 2, InStr(arr(i, 1), "。") - 2)
   
10.         End If
    
11.     Next
    
12.     [f2].Resize(UBound(arr), 1) = brr
    
13. End Sub

复制代码

望帝春心

参考附件