[已解决]请老师编写代码

ymq123

请老师编写代码，说明在附件里。谢谢！

最佳答案

月排行榜 / 总排行榜

xdd_sky

2013-6-2 20:18

。。。。。。。。看看是不是你要的。。。

跳转到最佳答案楼层

蓝桥玄霜

1. Sub lqxs()
   
2. Dim b1, b2, i&, n&, aa$, bb$
   
3. b1 = [a2:h2]
   
4. b2 = [a4:h7]: n = 1
   
5. For i = 1 To 8
   
6.     aa = aa & b1(1, i) & ","
   
7. Next
   
8. For i = 1 To UBound(b2)
   
9.     bb = ""
   
10.     For j = 1 To 8
    
11.         bb = bb & b2(i, j) & ","
    
12.     Next
    
13.     If aa <> bb Then
    
14.         n = n + 1
    
15.         Cells(n, 11).Resize(1, 8) = Application.Index(b2, i, 0)
    
16.     End If
    
17. Next
    
18. End Sub
    
19. 表5表6一样。

复制代码

xdd_sky

。。。。。。。。看看是不是你要的。。。

ymq123

蓝桥玄霜 发表于 2013-6-2 20:06

老师你好：请按我编写的方法再修改一下。谢谢！