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ć.