[已解决]如何判断数据,自动出新数据.

JLxiangwei

h284124405 发表于 2012-8-6 11:24
谢谢, 再帮我看看,刚刚更新了附件.谢谢

你越说我越不明白，也有点看不懂你现在更新的附件了
如果方便直接QQ联系

JLxiangwei

h284124405 发表于 2012-8-6 11:24
谢谢, 再帮我看看,刚刚更新了附件.谢谢

判断.zip (308.56 KB, 下载次数: 19)

2012-8-6 12:34 上传

点击文件名下载附件

1. 
   
2. Sub TEST()
   
3.     Dim arr, arr1, x&, y&, str$
   
4.     arr = Sheet2.Range("a1").CurrentRegion
   
5.     arr1 = Sheet1.Range("a1:c" & Cells(Rows.Count, 1).End(xlUp).Row)
   
6.     For x = 2 To UBound(arr1)
   
7.         For y = 2 To UBound(arr)
   
8.             If arr(y, 1) = arr1(x, 1) Then
   
9.                 str = str & arr(y, 2)
   
10.             End If
    
11.         Next y
    
12.         If arr1(x, 3) = 1 Then
    
13.             arr1(x, 2) = Right(str, 2) - 1
    
14.         Else
    
15.             arr1(x, 2) = (Right(str, 2) - 1) & (Right(str, 2) - arr1(x, 3))
    
16.         End If
    
17.         str = ""
    
18.     Next x
    
19.     Sheet1.Range("b2:b65536") = ""
    
20.     Sheet1.Range("b1").Resize(x - 1, 1) = Application.Index(arr1, , 2)
    
21. End Sub

复制代码

h284124405

谢谢，大师  
这个问题基上解决了。
问题有一个：如果2表中没有1表里的型号，那就出来问题了。

h284124405

JLxiangwei 发表于 2012-8-6 12:30

谢谢，大师  
这个问题基上解决了。
问题有一个：如果2表中没有1表里的型号，那就出来问题了。