Вычитание значений

[Mytmyt]

День добрый, задача.... есть значения(буквы и цифры) в ячейки 1 и в ячейке 2, в 3-ей ячейке нужно получить разницу 1-ой и 2-ой, но не арифметически, а простом методом исключения тех что были во 2-ой

[SAS888]

=СЦЕПИТЬ("=";ПОДСТАВИТЬ(A1;B1;""))
Если знак"=" не нужен, то просто
=ПОДСТАВИТЬ(A1;B1;"")

[Mytmyt]

да спб, но если я в ячейку B1 дописываю "1a;" то получается в ячейке C3 "1a; 2b; 3c;" а нужно "c3"

[IgorGO]

а с произвольным количеством значений в вычитаемой строке формулами задача не решается(((

Function AminusB(a As String, b As String) As String
  a = Replace(a, Split(b)(0), "")
  If UBound(Split(b)) = 0 Then
    Do While InStr(a, "  ") > 0: a = Replace(a, "  ", " "): Loop
    AminusB = Trim(a):  Exit Function
  End If
  AminusB = AminusB(a, Trim(Replace(b, Split(b)(0), "")))
End Function

[Mytmyt]

функция тоже не работает... блин че делать, может програмирование?

[IgorGO]

позвольте полюбопытствовать на каких данных не сработало?

[Mytmyt]

1a; 3c;

смысл, чтобы в яч. С1 выводились значения, которые есть в А1 и отсутствуют в B1

[IgorGO]

откройте прикрепленный мною выше файл.

а ячейку А1 напишите 1 2 3 4 5 6 7 8 9
в С1 видите 1 2 3 4 5 6 7 8 9
в В1 пишите 3 Enter
в С1 видите 1 2 4 5 6 7 8 9
исправте в В1 3 7 Enter
в С1 видите 1 2 4 5 6 8 9

что не сработало?
что не соответствует Вашему замыслу?

[Mytmyt]

все разобрался спб
правда вот этим способом
Public Function OutText(ByVal StrFrom As String, ByVal SubStr As String)
Dim x, i&
OutText = StrFrom
x = Split(SubStr, " ")
For i = 0 To UBound(x)
OutText = Replace(OutText, x(i), "")
Next
OutText = Trim$(OutText)
End Function