­ã´£³¡ªL

Sub TEST()
Dim xS As Worksheet, xD, Arr(6), Brr, R&, i&, j%, k%, x%, N%, T$
Set xD = CreateObject("Scripting.Dictionary")
For Each xS In Sheets(Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8"))
    xD.RemoveAll
    R = xS.[ac65536].End(xlUp).Row - 1
    N = N + 1: If R < 1 Then GoTo s01
    ReDim Brr(1 To R - 1, 1 To 7)
    For k = 0 To N
        Arr(k) = xS.[ae2].Cells(1, k * 9 + 1).Resize(R, 7)
        For j = 1 To 7
            xD(Arr(k)(R, j) & "|" & k) = 1
        Next j
    Next k
    '--------------------------------------
    For i = 1 To R - 1
    For j = 1 To 7
        For x = 0 To 48
        For k = 0 To N
            T = (Arr(k)(i, j) + x) Mod 49 & "|" & k
            If xD(T) = 0 Then GoTo x001
        Next k
            Brr(i, j) = Brr(i, j) & IIf(Brr(i, j) = "", "", ",") & x
x001:   Next x
    Next j
    Next i
    '-------------------------------------
    With xS.[v2].Resize(R - 1, 7)
         .NumberFormatLocal = "@"
         .Value = Brr
    End With
s01: Next
End Sub

»¡©ú¶Ã, ¤]¶Ã¼g¤@³q~~

­ã´£³¡ªL

¦^´_ 19# ziv976688


1)
T = ABS((Arr(k)(i, j) - x) Mod 49) & "|" & k

2)
V=(Arr(k)(i, j) - x) Mod 49
IF V<0 THEN V=V+49
T=V & "|" & K