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

lyf7276

你再看下是不是没有空行了

大灰狼1976

也来一个，向高手学习

1. Private Sub CommandButton1_Click()
   
2. Dim arr1(1 To 5), arr2(1 To 5), i%, j%, k%, l%
   
3. For i = 2 To 6
   
4.   arr1(i - 1) = Cells(i, 1) & "," & Cells(i, 2) & "," & Cells(i, 3) & "," & Cells(i, 4) & "," & Cells(i, 5) & "," & Cells(i, 6) & "," & Cells(i, 7) & "," & Cells(i, 8)
   
5.   arr2(i - 1) = Cells(i + 6, 1) & "," & Cells(i + 6, 2) & "," & Cells(i + 6, 3) & "," & Cells(i + 6, 4) & "," & Cells(i + 6, 5) & "," & Cells(i + 6, 6) & "," & Cells(i + 6, 7) & "," & Cells(i + 6, 8)
   
6. Next i
   
7. l = 2
   
8. For i = 1 To UBound(arr1)
   
9.   k = 0
   
10.   For j = 1 To UBound(arr2)
    
11.     If arr1(i) = arr2(j) Then k = k + 1: arr2(j) = ""
    
12.   Next j
    
13.   If k = 0 Then Cells(l, 11).Resize(, 8) = Split(arr1(i), ","): l = l + 1
    
14. Next i
    
15. l = 8
    
16. For i = 1 To UBound(arr2)
    
17.   If arr2(i) <> "" Then Cells(l, 11).Resize(, 8) = Split(arr2(i), ","): l = l + 1
    
18. Next i
    
19. End Sub

复制代码

ymq123

大灰狼1976 发表于 2013-6-1 21:30
也来一个，向高手学习

请把筛选后的数字由文本形式改为数值形式。谢谢！

大灰狼1976

目前我用的方式可能要改为数值型方法复杂一点，坐等高手