[已解决]急急急，求助excel问题

dengdeng我

大灰狼1976 发表于 2017-6-9 09:34
你先发个看看再说

请看

dengdeng我

大灰狼1976 发表于 2017-6-9 09:34
你先发个看看再说

请看

苏子龙

语文没学好，看不懂

dengdeng我

苏子龙 发表于 2017-6-9 10:23
语文没学好，看不懂

[em19]，是我表达不好？

大灰狼1976

确实，你现在的附件内容，我也没看明白。

dengdeng我

大灰狼1976 发表于 2017-6-9 11:08
确实，你现在的附件内容，我也没看明白。

其实就是按客户给的数量将A替换成客户名称，如果出现客户选的数量大于A的数量则按A的数量执行

大灰狼1976

1. Sub aaa()
   
2. Dim s$, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. s = "DADA"
   
5. For i = 3 To [e65536].End(3).Row
   
6.   d(Cells(i, 5).Value) = Cells(i, 6)
   
7. Next i
   
8. For i = 2 To [a65536].End(3).Row
   
9.   If Cells(i, 3) = "A" Then
   
10.     If d(Cells(i, 2).Value) > 0 Then
    
11.       Cells(i, 3) = s
    
12.       d(Cells(i, 2).Value) = d(Cells(i, 2).Value) - 1
    
13.     End If
    
14.   End If
    
15. Next i
    
16. End Sub

复制代码

dengdeng我

大灰狼1976 发表于 2017-6-9 11:41

好厉害[em23]