|
发表于 2013-6-3 16:20
|
显示全部楼层
本楼为最佳答案
字典没有清空。
这个贴子是不是发过了。- Private Sub CommandButton1_Click()
- Dim i%, j%, k%, str$, arr, d As Object, x As Integer
- Set d = CreateObject("scripting.dictionary")
- For x = 0 To 1
- For i = 2 To 6
- For j = 1 To 8
- str = str & Cells(i + 12 * x, j) & ","
- Next
- d(str) = ""
- str = ""
- Next
- k = 0
- For i = 8 To 12
- For j = 1 To 8
- str = str & Cells(i + 12 * x, j) & ","
- Next
- If Not d.Exists(str) Then
- k = k + 1
- Cells(k + 7 + 12 * x, 11).Resize(1, 8) = Cells(i + 12 * x, 1).Resize(1, 8).Value
- Else
- d.Remove str
- End If
- str = ""
- Next
- arr = d.Keys
- For i = 0 To UBound(arr)
- Cells(i + 2 + 12 * x, 11).Resize(1, 8) = Split(arr(i), ",")
- Next
- d.RemoveAll
- Next x
- End Sub
复制代码 可以先把原来的数据清除就知道了。
|
|