Заданы три одномерных массива разной размерности Для каждого из массивов определить повторяющиеся элементы - VBA - Ответ 4727699

Sub main()
Dim A() As Double
Dim B() As Double
Dim C() As Double
Dim masA() As Integer
Dim masB() As Integer
Dim masC() As Integer
Dim otv1() As Integer
Dim otv2() As Integer
Dim otv3() As Integer
Dim i As Integer
Dim j As Integer
Dim S As Integer
'сверху задаются переменные и массивы
N = InputBox("сколько чисел в массиве А хочешь?")
'здесь задаётся значение переменной n которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masA(1 To N)
' masA принимает значение N
For i = 1 To N
   masA(i) = InputBox("Ну давай, вводи теперь элемент номер(" & i & "):")
   Worksheets("sheet1").Cells(i + 1, 1) = masA(i)
Next i
' действие выполняется пока i не примет значения N, задаётся это выражением i+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец A
M = InputBox("А сколько чисел в массиве В хочешь?")
'здесь задаётся значение переменной m которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masB(1 To M)
' masB принимает значение M
For j = 1 To M
   masB(j) = InputBox("Ну, вводи элемент номер(" & j & "):")
   Worksheets("sheet1").Cells(j + 1, 2) = masB(j)
Next j
' действие выполняется пока i не примет значения M, задаётся это выражением j+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец B
L = InputBox("Ну давай, введи число элементов масива С")
'здесь задаётся значение переменной L которую ты сам вводишь в инпут бокс с клавиатуры
ReDim masC(1 To L)
' masC принимает значение L
For S = 1 To L
   masC(S) = InputBox("щёлкай элемент номер(" & S & "):")
   Worksheets("sheet1").Cells(S + 1, 3) = masC(S)
Next S
' действие выполняется пока S не примет значения L, задаётся это выражением S+1 при повторении каждого действия
'а так же результаты ввода в инпут бокс выводятся в столбец C
For i = 1 To N
If masA(i) <> masA(i) Then otv1(i) = masA(i)
Next i
 For j = 1 To M
If masB(j) <> masB(j) Then otv2(j) = masB(j)
Next j
For S = 1 To L
If masC(S) <> masC(S) Then otv3(S) = masC(S)
Next S
 
 
MsgBox "Повторяющиеся элементы в массиве A:", i
MsgBox "Повторяющиеся элементы в массиве B:", otv2(j)
MsgBox "Повторяющиеся элементы в массиве C:", otv3(S)
 
End Sub