VBA co z nim zrobić mam

0

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

0

Użyj find dla range https://docs.microsoft.com/en[...]fice/vba/api/excel.range.find

Co to znaczy podzielić na podzbiory?

0

Chyba gdzieś widziałem... Jakaś sesja czy cuś...VBA - wyszukiwanie wartości w arkuszach

0
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
0
Marcin.Miga napisał(a):

Chyba gdzieś widziałem... Jakaś sesja czy cuś...VBA - wyszukiwanie wartości w arkuszach
Zadanka w ramach zaliczenia :P
W jaki dokładnie sposób można wykonać te podzbiory trójelementowe z dokładnie tego rodzaju przeszukiwaniem?

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0