Текст задания 

При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное двухзначное число) целых положительных случайных четырехзначных чисел. Из последовательности {ai} получить последовательность {bi}, переставив в элементах ai вторую и четвертую цифры. Обе последовательности вывести в соседние столбцы рабочего листа

Решение

Добавляем на рабочий лист Excel кнопку, на нее вешаем код, приведенный ниже и получаем готовое решение. Если Вам нужна готовая книга Excel, то можете её приобрести, заплатив символическую сумму. Для этого добавьте работу в корзину, оформите заказ и оплатите его. Сразу же после оплаты Вы сможете скачать готовое решение

Код макроса:

Sub Кнопка3_Щелчок()
Dim a(99) As Integer
Dim B(99) As Integer
Dim n As Integer
Dim i As Integer
Dim n1 As String
For i = 1 To 99
  Cells(i + 1, 12) = ""
  Cells(i + 1, 13) = ""
Next i
Randomize
n = Rnd() * 100
Cells(1, 11) = "N=" & n
For i = 1 To n
  a(i) = Rnd() * 10000
  n1 = CStr(a(i))
  B(i) = CInt(Mid(n1, 1, 1) & Mid(n1, 4, 1) & Mid(n1, 3, 1) & Mid(n1, 2, 1))
  Cells(i + 1, 12) = a(i)
  Cells(i + 1, 13) = B(i)
Next i
End Sub