петр васильев

вот программа


Private Sub CommandButton1_Click()
Dim b(1 To 6, 1 To 8) As Single, F As Single
Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 8
b(i, j) = Cells(i + 3, j)
Next j
Next i
For i = 1 To 6
F = b(i, 2)
b(i, 2) = b(i, 4)
b(i, 4) = F
Next i
For i = 1 To 6
For j = 1 To 8
If b(i, j) < 0 Then Cells(i + 22, j + 9) = i: Cells(i + 23, j + 9) = j
Cells(i + 14, j) = b(i, j)
Next j
Next i
Cells(23, 9) = "i"
Cells(22, 9) = "j"
End Sub

задание в рисунке.


ЗАРАНЕЕ БЛАГОДАРЮ