Sub Zadacha1()
Dim a As Double, b As Double, c As Double, d As Double
a = Range("A1")
b = Left(a, 1)
c = Right(a, 1)
d = Mid(a, 3, 1)
Range("A2") = b
Range("A6") = c
Range("A4") = d
End Sub

Sub Chislo()
Dim a As Double, n1, n2, n3, n4, n5, n6

a = Range("A1")
n1 = Left(a, 1)
n2 = Right(a, 1)
n3 = Mid(a, 2, 3)
n4 = Left(n3, 1)
n5 = Right(n3, 1)
n6 = Mid(n3, 2, 1)
Range("A2") = n1
Range("A6") = n2
Range("A4") = n6
Range("A3") = n4
Range("A5") = n5


End Sub

Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("19")
Y = Range("20")
If (X < 0) And (Y > 0) Then
    Range("21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("21") = "4"
 End If
 End Sub