各位大神帮忙看看我这个代码是哪里错了？谢谢

huangxinyu1988

chxw68 发表于 2017-7-21 17:11
呵呵，我都记不清帮你解决几次问题了，你还记得这么清。这是个小问题，一眼就能看出来。

因为我是初学，都是碰到工作中需要的在学，所以就比较菜。受人之恩，必须铭记。还有可以麻烦您帮我写个删除A列的重复项的代码吗？我用录制宏的方法录制了，但是到2003版本的EXCEL中会报错。没办法用。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet2")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a1:a" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       d(arr(i, 1)) = ""
    
11.     Next
    
12.     .Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13.   End With
    
14. End Sub
    

复制代码

chxw68

修改好了。

huangxinyu1988

chxw68 发表于 2017-7-24 12:45
修改好了。

大哥，我做了一个工作需要的模版，但是用vlookup函数和product函数后，一计算就几乎死机的那种，您可以不可以抽点时间用VBA帮我优化一下吗，刚好现在我在学习vba函数，通过示例学习对我比较好，希望您帮忙，我发帖的链接在这里。
http://club.excelhome.net/thread-1360025-1-1.html