Otrzymałem zadanie z którym męcze sie niemiłosiernie , prosiłbym bardzo o pomoc bo czas na oddanie zadania juz mi się kończy a spędziłem przy
tym bardzo dużo czasu.
Tablica nazywa sie tablica poniewaz przy nazwie tab wyskakuje błąd
Napisz program, który usunie z 20 elemntowej tablicy o nazwie "tab" wszystkie liczby <0 przesuwając pozostałe liczby w lewo.
Sub pietnaste()
Dim tablica(1 To 20) As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i = 1 To 20
tablica(i) = Worksheets("arkusz1").Range("A1").Offset(i - 1)
Next i
i = 1
j = 20
Do While i <= j
If tablica(i) < 0 Then
j = j - 1
For x = i To j
tablica(x) = tablica(x + 1)
Next x
i = i - 1
End If
i = i + 1
Loop
For i = 1 To j
Worksheets("arkusz1").Range("B1").Offset(i - 1) = tablica(i)
Next i
End Sub