? ????? ?? ??? ??? ?? VBA ??? ?? ???? Excel ? ??? ???? ??? ???? ? ?? ??? ?????. ???? ???? ?? ??? ???? ??? ???, ??? ???? ?? ???? ????, ????? ???? ? ?? ??? ?? ????.

???? ???? ??? ???? ?? ??? ?? ? ???. ??? ???? ?? LEFT , RIGHT ? MID ?? ??? ???? ??? ? ????. ??? ?? ???? ?? ???? ??? ??? ??? ?, ? ?? ??? ??? ?????. ?? ????? ???? ????.

??? ?????? ??? ?? (Excel 365, 2021, 2019) :

Microsoft Excel 2019?? ??? ????? TEXTJOIN ??? ??????. ??? ??? TEXTJOIN , MID , ROW , INDIRECT , SEQUENCE ? IFERROR ?????? ?????.

Excel 365 ? 2021? ?? :

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1,""))

Excel 365-2019 :

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1,""))

(Excel 2019??? ?? ?? ????? Ctrl Shift Enter? ?????. ?? ?? Excel??? ??? ??? ?????.)

? ??? ? ??? ?? ???? 1? ??? ??? ?????. ??? ?? ??? IFERROR ? ?? ??? ?? ???? ??????. TEXTJOIN ? ??? ??? ?????.

??? ?? VBA ?? (?? Excel ??) :

?? Excel ?? ?? ??? ?? ??? ?? ??? ?? VBA ??? ??? ? ???? ?????. ? ?? ??? ?????.

VBA ?? 1 (?? ? ??) :

 ?? removetext (str as string)
  ??? sres? ????
  sres = ""
  i = 1 to len (str)? ??
    iSnumeric (Mid (str, i, 1)) ? ?? sres = sres & mid (str, i, 1)
  ?? i
  removetext = sres
?? ??

VBA ?? 2 (?? ??) :

 ?? removetext (str as string)? ???? removetext
  createobject ( "vbscript.regexp")? ??
    .global = true
    .pattern = "[^0-9]"
    removetext = .replace (str, "")
  ????
?? ??

? ??? =RemoveText(A2) ? ?? ??????. ?? 2 (?? ??? ??)? ????? ?? ??? ???? ? ? ?????.

???? ???? ?? ?? ?? (Excel 365, 2021, 2019) :

??? ??? ??? ????? ???? ?? ? ? ????. ?? ????, TEXTJOIN , MID , ROW , INDIRECT , SEQUENCE , IFERROR ? ISERROR ?????.

Excel 365 ? 2021? ?? :

=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1),MID(A2,SEQUENCE(LEN(A2)),1),"")))

Excel 365-2019 :

=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1),MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),"")))

TRIM ??? ??/?? ??? ?????.

?? ????? ??? ?? VBA ?? (?? Excel ??) :

?? VBA ??? ???? ??? ???? ???? ???? ? ?? ??? ????.

VBA ?? 1 (?? ? ??) :

 ?? removenumbers (str as string)
  ??? sres? ????
  sres = ""
  i = 1 to len (str)? ??
    isnumeric (mid (str, i, 1))? ???? sres = sres & mid (str, i, 1)
  ?? i
  Removenumbers = SRES
?? ??

VBA ?? 2 (?? ??) :

 ?? removenumbers (str as String)? ????
  createobject ( "vbscript.regexp")? ??
    .global = true
    .pattern = "[0-9]"
    Removenumbers = .replace (str, "")
  ????
?? ??

=TRIM(RemoveNumbers(A2)) ? ?? ??????.

???? ??? ??? ?? ?? :

?? ??? ?? VBA ??? ???? ?? ??? ?? ?? ? ? ??????.

VBA ?? 1 (?? ? ??) :

 function splittextNumbers (str string, is_remove_text as boolean))
  Dim Snum, Stext, Schar? ????
  Snum = stext = ""
  i = 1 to len (str)? ??
    schar = mid (str, i, 1)
    iSnumeric (Schar)?? Snum = Snum & Schar Else Stext = Stext & Schar
  ?? i
  if is_remove_text if splittextnumbers = snum else splittextnumbers = stext
?? ??

VBA ?? 2 (?? ??) :

 function splittextNumbers (str string, is_remove_text as boolean))
  createobject ( "vbscript.regexp")? ??
    .global = true
    IS_REMOVE_TEXT?? .pattern = "[^0-9]"else .pattern = "[0-9]"
    splittextNumbers = .replace (str, "")
  ????
?? ??

?? =SplitTextNumbers(A2,TRUE) ????? ??? ???? ???? ????? =TRIM(SplitTextNumbers(A2,FALSE)) .

?? ?? ?? :

?? ????? ??? ??? ? ?? ??? ???? ?? ??? ??? ?? ?? Excel ?? ?? ???? ?? ??????. ????? "?? ??"????? "Ultimate Suite"?? ?? ???? ????.

? ??? ? ???? ??? Excel ?? ? ??? ?? ??? ???? ?? ???? ?????. ?? ???? ??? ?? ? ??? ???????.

? ??? Excel ??? ??? ? ??? ?? / ???? ??? ?? ?????. ??? ??? PHP ??? ????? ?? ?? ??? ?????!