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

Программа VBA.

Private Sub CommandButton1_Click()
Dim b(1 To 6, 1 To 8) As Single, F As Single
Dim i As Integer, j As Integer, x As Integer, y 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
x = 1
y = 22
Cells(y + 1, x + 7) = "i"
Cells(y, x + 7) = "j"
For i = 1 To 6
For j = 1 To 8
If b(i, j) < 0 Then Cells(y + 1, x) = i: Cells(y, x) = j: x = x + 1
Cells(i + 14, j) = b(i, j)

Next j
Next i
End Sub