[已解决]请帮助修改代码

ymq123

请帮助修改代码，说明见附件。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-6-3 00:02

1. Private Sub CommandButton1_Click()
   
2. Dim b1, b2, i&, n&, aa$, bb$
   
3. For x = 0 To 1
   
4.   b1 = Range(Cells(2 + 7 * x, 1), Cells(2 + 7 * x, 8))
   
5.   b2 = Range(Cells(4 + 7 * x, 1), Cells(7 + 7 * x, 8))
   
6.   n = 1
   
7.   aa = ""
   
8.   For i = 1 To 8
   
9.     aa = aa & b1(1, i) & ","
   
10.   Next i
    
11.   For i = 1 To UBound(b2)
    
12.     bb = ""
    
13.     For j = 1 To 8
    
14.       bb = bb & b2(i, j) & ","
    
15.     Next j
    
16.     If aa <> bb Then
    
17.       n = n + 1
    
18.       Cells(n + 7 * x, 11).Resize(1, 8) = Application.Index(b2, i, 0)
    
19.     End If
    
20.   Next i
    
21. Next x
    
22. End Sub
    
23. 
    
24. 少了aa=""，高手的代码就是好，学习！

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Private Sub CommandButton1_Click()
   
2. Dim b1, b2, i&, n&, aa$, bb$
   
3. For x = 0 To 1
   
4.   b1 = Range(Cells(2 + 7 * x, 1), Cells(2 + 7 * x, 8))
   
5.   b2 = Range(Cells(4 + 7 * x, 1), Cells(7 + 7 * x, 8))
   
6.   n = 1
   
7.   aa = ""
   
8.   For i = 1 To 8
   
9.     aa = aa & b1(1, i) & ","
   
10.   Next i
    
11.   For i = 1 To UBound(b2)
    
12.     bb = ""
    
13.     For j = 1 To 8
    
14.       bb = bb & b2(i, j) & ","
    
15.     Next j
    
16.     If aa <> bb Then
    
17.       n = n + 1
    
18.       Cells(n + 7 * x, 11).Resize(1, 8) = Application.Index(b2, i, 0)
    
19.     End If
    
20.   Next i
    
21. Next x
    
22. End Sub
    
23. 
    
24. 少了aa=""，高手的代码就是好，学习！

复制代码