|
lkjpoi 发表于 2012-11-28 12:21
zjdh老师,结果有误,我是算2:7行,10:15行,18:23行,而你是把2:8行,10:16行,18:24行的数据算进去了.
修改一个参数
Sub test()
Dim Arr, i&, x$, j&, aa$
Dim d, k, t, d1, d2
On Error Resume Next
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
aa = "0123456789"
Range("D30:F65536").ClearContents
For L = 2 To 18 Step 8
Arr = Range("D" & L & ":F" & L + 5)
W = W + 4
For j = 1 To 3
For i = 1 To UBound(Arr)
x = Left(Arr(i, j), 1)
d(x) = ""
x = Mid(Arr(i, j), 2, 1)
d1(x) = ""
x = Right(Arr(i, j), 1)
d2(x) = ""
Next
k = d.Keys: k1 = d1.Keys: k2 = d2.Keys
bb = aa
For y = 0 To UBound(k)
bb = Replace(bb, k(y), "")
Next
Cells(W + 26, j + 3) = bb
bb = aa
For y = 0 To UBound(k1)
bb = Replace(bb, k1(y), "")
Next
Cells(W + 27, j + 3) = bb
bb = aa
For y = 0 To UBound(k2)
bb = Replace(bb, k2(y), "")
Next
Cells(W + 28, j + 3) = bb
d.RemoveAll: d1.RemoveAll: d2.RemoveAll
Next
Next
End Sub
|
|