VBA co z nim zrobić mam

Witam,
Mam problem z VBA mianowicie muszę wykonać przeszukiwanie wierszami od A1;Z100. Udało mi się to wykonać, podpinam progrmam;
Sub przeszukajW()
Dim zawartosc As Variant, t(100 * 26) As Integer
Dim indeksy(100 * 26, 2) As Byte
Dim i As Byte, j As Byte
k = 0
For i = 1 To 100
For j = 1 To 26
zawartosc = Cells(i, j).Value
If Not IsEmpty(zawartosc) Then
If IsNumeric(zawartosc) Then
k = k + 1
t(k) = zawartosc
Cells(i, j).Interior.Color = RGB(255, 155, 155)
End If
End If
Next
Next
End Sub

teraz co muszę wykonać to znalezione liczby podzielić na podzbiory trójelementowe i nie wiem jak się do tego zabrać.

Użyj find dla range https://docs.microsoft.com/en-us/office/vba/api/excel.range.find

Co to znaczy podzielić na podzbiory?

Chyba gdzieś widziałem... Jakaś sesja czy cuś...https://4programmers.net/Forum/Inne/318682-vba_wyszukiwanie_wartosci_w_arkuszach?p=1543667#id1543667

Sub test()
Dim arr(0 To 100, 0 To 3) As Variant
Dim counter, row As Integer

row = 0
counter = 0

For Each cell In Range("A1:Z100")
    If counter = 3 Then
        counter = 0
        row = row + 1
    End If
    If Not IsEmpty(cell) And IsNumeric(cell) Then
        arr(row, counter) = cell.Value
        counter = counter + 1
    End If
Next

End Sub

Marcin.Miga napisał(a):

Chyba gdzieś widziałem... Jakaś sesja czy cuś...https://4programmers.net/Forum/Inne/318682-vba_wyszukiwanie_wartosci_w_arkuszach?p=1543667#id1543667
Zadanka w ramach zaliczenia :P
W jaki dokładnie sposób można wykonać te podzbiory trójelementowe z dokładnie tego rodzaju przeszukiwaniem?