так бы и сказал
щас сообразим
(длина столбцов считается автоматом)
но - работает только для цифр, я не знаю как достать содержимое ячейки в виде строки
Private Sub A_B_C()
Dim N, Na, ia, Nb, ib, Nc As Integer
Dim flag As Boolean
With Лист1
'считаем непустых ячеек в столбце A
Na = 0
While (.Cells(Na + 1, 1))
Na = Na + 1
Wend
'считаем непустых ячеек в столбце B
Nb = 0
While (.Cells(Nb + 1, 2))
Nb = Nb + 1
Wend
'Na,Nb - длина столбцов
Nc = 0 '
'перебираем все элементы столбца A
For ia = 1 To Na
'проверяем - есть ли элемент в столбце B
flag = True
For ib = 1 To Nb
'проверяем на совпадение
If .Cells(ia, 1) = .Cells(ib, 2) Then
ib = Nb
flag = False 'совпал - обламываем
End If
Next ib
'проверяем надо ли добавить в столбэц C
If flag Then
Nc = Nc + 1
.Cells(Nc, 3) = .Cells(ia, 1)
End If
Next ia
End With
'Nc - длина столбца C
End Sub