Excel ??? ??? ???? ??? ?? ??? ??

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

Microsoft Excel? ?? ? ?? ?? ??? ? ??? ??? ?????. ??? ??? ? ??? ??? ???? ?? ???? ?? Excel? ???? ???? ????. ??, ??, ??, ???? ????. ??? ??? ??? ???? ??????? ??. Excel? ??? ??? ??? ?? ??? ???!

• VBA? ???? Excel?? ?? ??? ??????
• VBA? ???? ?? ??? ??????
• Ultimate Suite? ???? ?? ??? ?? ???? ??????.

Excel ??? ?? ??? ???? ??

?? : ??? ??? ?? ?? ??? ???? ??? ? ?? ? ?? ?? ??? ????????.

??? : ??? ?? ?? ?? VBA ???? ??? ??????.

??? ??? ???? ??? ?? ??

??? ?? ???? ????? removedupewords ?? ?? ??? ?? ??? ?? ?? (UDF)? ??? ? ????.

 ?? removedUpeWords (???? ???, string = "" ")? ?????
  ????? ??? ??
  Dim X, ??
  set dictionary = createobject ( "scripting.dictionary")
  dictionary.comparemode = vbtextcompare
  ??? ? X? ?? (???, ?? ?)
    part = trim (x)
    part  "" "??? dictionary.exists (part)? ?? ??
      Dictionary.add ??, ???? ????
    ? If
  ??
  Dictionary.count> 0??
    removedupewords = join (dictionary.keys, delimiter)
  ? ??
    removedupewords = ""
  ? If
  ?? = ???? ???? ????
?? ??

?? ??? ?? ??? ???? ??

??? ? ??? ????? ??? ???????.

1. Alt F11? ?? Visual Basic ???? ?? ?.
2. ?? ? ??? ?? ? ??? ??? ??? ???? ?? > ??? ??????.
3. ?? ??? ?? ?? ?? ????.

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

?? UPEWORDS ?? ??

??? ?? ???? ???? ?? ?? ? ??? ?? ??? ????.

?? ? UPEWORDS (Text, [Delimiter]) ??? :

• ??? (??) - ???? ??? ??? ?? ?.
• Delimiter (?? ??) - ?? ? ?? ???? ?? ??. ???? ??? ?? ?? ??????.

? ?? ? ??? ???? ???? ???? ???? ??? ??? ?????.

?? ? UPEWORDS ??? ???? ??

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

?? ?? ?? ?? ??? ???? Formula Intelligence? ?????. ??? ? ? ???? ?? ?????. ?? ?? ??, ?? ???? ???? Enter? ??? ??? ?????.

?? ??, A2?? ??? ???? ?? ? ?? ??? ????? B2? ?? ??? ???? ??? ?? ?? ???????.

=RemoveDupeWords(A2, ", ")

????? ??? ?? ?? ?? ? ?? ? ?? ?? ?? ??? ??? ?? ? ????.

??? ?? ? ??? ???? ?? ??? ??? ??????.

=RemoveDupeWords(A2, ",")

?? ???? ?? ?? ???? ? ?? ?? ??? ""?? ???????.

=RemoveDupeWords(A2)

?? Excel ??? ????? UDF? ?? ???? ???? ???? ?? ????? ??? ?? ?? ?????.

? ?? ?? ??? ?? ???? ???? VBA ???

? ?? ?? ??? ?? ???? ????? ????? ?? ? Upewords ??? ?? ? ? ????. ? ??, ?? ??? ?? ????, ?? ?? ?? ? ??? ??? ??? ?????????. ?? ??, ?? ?? ?? ? ??? ?? ?? ???? ???? ?? ?? ??? ???? Macros?? ?? USDELIMSPACE ? ?? ???? ??? ? ? ????.

??? ??? ??? ????.

 ?? ?? ?? ?? ?? 2 ()
  ??? ??? ?
  Application.Selection? ? ?? ??
    cell.value = removedupewords (cell.value, ",")
  ??
?? ??

?? ???? ???? ??? ?? ???. ?? ?? ??? ????? ?? ?? ?? ?? ??? ",", ",", ":

cell.Value = RemoveDupeWords(cell.Value, ", ")

????. ???? ???? ????? ??? ?? ? Upewords ??? ??? ??? ??? ???????.

??? ?? ??

??? ??? ??? ?? ??? ????? ??? ?? ? ?? ?? ??? ?? ?? ??? ???? ???? ??????.

1. ?? ???? ????? ? ??? ??????.
2. Alt F8? ?? ??? ?? ??? ?? ?.
3. ??? ???? removedupewords2? ??????.
4. ??? ??????.

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

????. ??? ??? ???? ? ???? ???? ???? ?? ?? ??? ???? ?? ????. ?? ???, ??? ????, ??? ??? ?? ??? ?? ?? ?? ??? ??? ?????. ?? ???? ????? ??? ?? ? ?? ? ? ????.

??? ?? ??? ???? ??

?? : ??? ?? ?? ??? ??? ??? ? ??? ??? ??? ?? ?? ? ????????.

??? : ??? ?? ?? ?? VBA ???? ??? ??????.

?? ??? ???? ??? ?? ??

??? ?? ??? ????? ??? ? ?? ?? ? ????? removedupechars ?? ?? ??? ?? ??? ?? ??? ??? ? ????.

 ??? ?? ? UPECHARS (???? ???)? ???? ?????
  ????? ??? ??
  ???? char
  ?????? ??? ??
  set dictionary = createobject ( "scripting.dictionary")
  i = 1 to len (???)
    char = mid (???, i, 1)
    Dictionary.exists (char)? ?? ??
      Dictionary.add char, ????
      ?? = ?? ? ?
    ? If
  ??
  ?? UCHARS = ??
  ?? = ???? ???? ????
?? ??

?? ??? ?? ??? ????? ??? ?? ?? ??? ?????.

?? UPECHARS ?? ??

? ??? ?? ??? ??? ??? ? ?????. ??? ?? ?? ? ?????.

??? ? ?????? ?? ??? ?? ? ?? ??????.

? ??? ??? ???? ???? ???? ?? ??? ?????.

?? ? UPECHARS ??? ???? ??

REMOVEDUPEWORDS? ?? ??? ?? ?? ?? RemovedUpechars ? ?? ?????. ??? ?? ?? ??? ?? ?? ?? ?????.

A2 ??? ?? ??? ????? (A2?? ??) B2 ?? ??? ???? ??? ??????.

=RemoveDupeChars(A2)

?? ??? ??,? ??? ??, ?? ? ?? ??? ???? ??? ?? ??? ????? ?????.

??. ???? ??, ?? ?? ???? ?? ?? ??? ? ?? ?? ?? ? ?? ?? ??? ??? ?? ? Upewords ??? ??????.

??? ??? ??? VBA ??? ??

?? ? UPEWORDS ? ????? ?? ? UPECHARS ??? ????? ?? ? ? ????.

 ?? ?? ?? upechars2 ()
  ??? ??? ?
  Application.Selection? ? ?? ??
    cell.value = removedupechars (cell.value)
  ??
?? ??

? UDF? ???? ???? ?? ??? ??? ??? ??? ????.

????. ???? ???? ????? ??? ?? ? UDF ??? VBA ???? ??? ??? ???????.

??? ?? ??

??? ??? ?? ??? ????? ??? ?? ? ?? ?? ??? ???? ???? ??? ?? ???? ??????.

1. ?? ??? ????? ? ??? ??????.
2. Alt F8? ?? ??? ?? ??? ?? ?.
3. ??? ???? removedupechars2? ??????.
4. ??? ??????.

Ultimate Suite? ???? ?? ?? ???? ??????

? ????? ?? ???? Microsoft Excel? ? ??? ??? ???? ??? ???? ?? ??? ???? ????. ??? ??? ??? ? ??? ?!

Dedupe ??? ??? Ablebits ??? ?? ?? ??? ?? ?? ???? ?? ? ????. ??? ?? ?? ??? ?? ??? ???? ??? ?? ??? Ultimate Suite? ???? ??? ?????? (???? ?? ???? ??).

5 ? (? ??)? ?? ??? ?? ?? ? ???? ????? ??? ???????.

1. ?? ???? ???? ?? ?? ??? ?? ??? ??????.
2. ???? ??????.
3. ?? ???? ?? (???)? ???? ??? ?????.
4. ?? ??? ?? ??? ??? ??? ??? ????? ??????.
5. ??? ??????.

???! VBA ?? ??? ???? ??? ??? ??? ?? ? ????.

? ??? ?? ??? ?? ??? ?? ??? ????? ??????. ?? ? ?? ??? ??? ?? ??? ?????? ???????!

??? ?? ???? ???? ?????. ?? ??? ?????. ?? ?? ?? ????? ??? ????!

???? ??? ???

??? ?? ?? (.xlsm ??) Ultimate Suite 14 ? Full Feature ?? (.exe ??)? ??

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