[已解决]哈哈，玩笑而已

chensir

谢谢

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2015-10-26 10:05

这个。。。基础的VBA

1. Sub a()
   
2. Dim i&
   
3. For i = 1 To Cells(Rows.Count, 2).End(3).Row
   
4.     If Cells(i, 3) = "提取" Then
   
5.        s = s & Cells(i, 2)
   
6.     End If
   
7. Next
   
8. 
   
9. [e2] = s
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

七彩屋

这不很简单吗？看你级别那么高，不会是我理解错。

这儿有肥猫

这个。。。基础的VBA

1. Sub a()
   
2. Dim i&
   
3. For i = 1 To Cells(Rows.Count, 2).End(3).Row
   
4.     If Cells(i, 3) = "提取" Then
   
5.        s = s & Cells(i, 2)
   
6.     End If
   
7. Next
   
8. 
   
9. [e2] = s
   
10. End Sub
    

复制代码

爱疯

楼主技巧、函数用的多点，不大用VBA，没什么的。

我也是有很多方面用的少，很坑的，没啥的