|
请老师帮助编写代码,说明详见附件。谢谢!
本帖最后由 大灰狼1976 于 2013-6-1 21:34 编辑
也来一个,向高手学习 - Private Sub CommandButton1_Click()
- Dim arr1(1 To 5), arr2(1 To 5), i%, j%, k%, l%
- For i = 2 To 6
- 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)
- 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)
- Next i
- l = 2
- For i = 1 To UBound(arr1)
- k = 0
- For j = 1 To UBound(arr2)
- If arr1(i) = arr2(j) Then k = k + 1: arr2(j) = ""
- Next j
- If k = 0 Then Cells(l, 11).Resize(, 8) = Split(arr1(i), ","): l = l + 1
- Next i
- l = 8
- For i = 1 To UBound(arr2)
- If arr2(i) <> "" Then Cells(l, 11).Resize(, 8) = Split(arr2(i), ","): l = l + 1
- Next i
- End Sub
复制代码
|
|