VBA ╨Ш╨Э╨б╨в╨а╨Х╨Т

Excel VBA INSTRREV

VBA ╨Ш╨Э╨б╨в╨а╨Х╨Т ╤Д╤Г╨╜╨║╤Ж╨╕╤П, ╨║╨░╨║ ╨╛╨╖╨╜╨░╤З╨░╨╡╤В ‘╨Т ╨╛╨▒╤А╨░╤В╨╜╨╛╨╝ ╨┐╨╛╤А╤П╨┤╨║╨╡ ╤Б╤В╤А╨╛╨║╨╕,’ ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ╨┐╨╛╨╖╨╕╤Ж╨╕╤О ╨┐╨╡╤А╨▓╨╛╨│╨╛ ╨▓╤Е╨╛╨╢╨┤╨╡╨╜╨╕╤П ╨╕╤Б╨║╨╛╨╝╨╛╨╣ ╤Б╤В╤А╨╛╨║╨╕ (╨┐╨╛╨┤╤Б╤В╤А╨╛╨║╨╕) ╨▓ ╨┤╤А╤Г╨│╤Г╤О ╤Б╤В╤А╨╛╨║╤Г, ╨╜╨░╤З╨╕╨╜╨░╤П ╤Б ╨║╨╛╨╜╤Ж╨░ ╤Б╤В╤А╨╛╨║╨╕ (╤Б╨┐╤А╨░╨▓╨░ ╨╜╨░╨╗╨╡╨▓╨╛), ╨╕╨╖ ╨║╨╛╤В╨╛╤А╨╛╨╣ ╨╝╤Л ╨╕╤Й╨╡╨╝ ╨╕╤Б╨║╨╛╨╝╤Г╤О ╤Б╤В╤А╨╛╨║╤Г.

INSTRREV ╨д╤Г╨╜╨║╤Ж╨╕╤П ╨╜╨░╤З╨╕╨╜╨░╨╡╤В ╨┐╨╛╨╕╤Б╨║ ╨╕╤Б╨║╨╛╨╝╨╛╨╣ ╤Б╤В╤А╨╛╨║╨╕ ╤Б ╨║╨╛╨╜╤Ж╨░, ╤З╤В╨╛ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨╖╨╜╨░╤В╤М, ╨╜╨╛ ╤Б╤З╨╕╤В╨░╨╡╤В ╨┐╨╛╨╖╨╕╤Ж╨╕╤О ╤Б ╨╜╨░╤З╨░╨╗╨░. ╨Я╨╛╤В╨╛╨╝, ╨╜╨░╨║╨╛╨╜╨╡╤Ж, ╨╡╤Й╨╡ ╨╛╨┤╨╕╨╜ INSTR ╨д╤Г╨╜╨║╤Ж╨╕╤П VBA (╤А╨░╤Б╤И╨╕╤Д╤А╨╛╨▓╤Л╨▓╨░╨╡╤В╤Б╤П ╨║╨░╨║ ┬л╨Т ╤Б╤В╤А╨╛╨║╨╡┬╗) ╨╕╤Й╨╡╤В ╤Б╤В╤А╨╛╨║╤Г ╨▓ ╨┤╤А╤Г╨│╨╛╨╣ ╤Б╤В╤А╨╛╨║╨╡ ╨╕ ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ╨┐╨╛╨╖╨╕╤Ж╨╕╤О. ╨Э╨╛ ╤Н╤В╨░ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨╜╨░╤З╨╕╨╜╨░╨╡╤В ╨┐╨╛╨╕╤Б╨║ ╤Б ╨╜╨░╤З╨░╨╗╨░ ╤Б╤В╤А╨╛╨║╨╕, ╨╕╨╖ ╨║╨╛╤В╨╛╤А╨╛╨╣ ╨╝╤Л ╨╕╤Й╨╡╨╝ ╨╕╤Б╨║╨╛╨╝╤Г╤О ╤Б╤В╤А╨╛╨║╤Г.

INSTRREV ╨╕ INSTR ╨▓╤Б╤В╤А╨╛╨╡╨╜╤Л ╨б╤В╤А╨╛╨║╨╛╨▓╨░╤П/╤В╨╡╨║╤Б╤В╨╛╨▓╨░╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П VBA╨д╤Г╨╜╨║╤Ж╨╕╤П VBA╨д╤Г╨╜╨║╤Ж╨╕╨╕ VBA ╤Б╨╗╤Г╨╢╨░╤В ╨╛╤Б╨╜╨╛╨▓╨╜╨╛╨╣ ╤Ж╨╡╨╗╨╕ ╨┤╨╗╤П ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╤Е ╨▓╤Л╤З╨╕╤Б╨╗╨╡╨╜╨╕╨╣ ╨╕ ╨▓╨╛╨╖╨▓╤А╨░╤В╨░ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П. ╨Я╨╛╤Н╤В╨╛╨╝╤Г ╨▓ VBA ╨╝╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╡╨╝ ╤Б╨╕╨╜╤В╨░╨║╤Б╨╕╤Б ╨┤╨╗╤П ╤Г╨║╨░╨╖╨░╨╜╨╕╤П ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨╛╨▓ ╨╕ ╤В╨╕╨┐╨░ ╨┤╨░╨╜╨╜╤Л╤Е ╨┐╤А╨╕ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╕╨╕ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕. ╨в╨░╨║╨╕╨╡ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╜╨░╨╖╤Л╨▓╨░╤О╤В╤Б╤П ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╤М╤Б╨║╨╕╨╝╨╕ ╤Д╤Г╨╜╨║╤Ж╨╕╤П╨╝╨╕.╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡ ╨╕╨╖ MS Excel. ╨Я╨╛╤Н╤В╨╛╨╝╤Г ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨╕╤Е ╨┐╤А╨╕ ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╕╨╕ ╨╗╤О╨▒╨╛╨│╨╛ ╨╝╨░╨║╤А╨╛╤Б╨░ ╨▓ ╤А╨╡╨┤╨░╨║╤В╨╛╤А╨╡ Microsoft Visual Basic.

╨Ю╨│╨╗╨░╨▓╨╗╨╡╨╜╨╕╨╡

• Excel VBA INSTRREV
  • ╨б╨╕╨╜╤В╨░╨║╤Б╨╕╤Б
    • ╨Т╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╨╝╤Л╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П
  • ╨Ъ╨░╨║ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Д╤Г╨╜╨║╤Ж╨╕╤О VBA INSTRREV?
  • ╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

╨б╨╕╨╜╤В╨░╨║╤Б╨╕╤Б

╨Ъ╨░╨║ ╨╝╤Л ╨▓╨╕╨┤╨╕╨╝ ╨╜╨░ ╨╕╨╖╨╛╨▒╤А╨░╨╢╨╡╨╜╨╕╨╕ ╨▓╤Л╤И╨╡, ╤Б╤Г╤Й╨╡╤Б╤В╨▓╤Г╤О╤В ╨┤╨▓╨░ ╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╤Е ╨╕ ╨┤╨▓╨░ ╨╜╨╡╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╤Е ╨░╤А╨│╤Г╨╝╨╡╨╜╤В╨░.

• StringCheck ╨║╨░╨║ ╤Б╤В╤А╨╛╨║╨░: ╨н╤В╨╛ ╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╨╣ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В. ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨╕╤Б╨║╨╛╨╝╨╛╨╡ ╤Б╤В╤А╨╛╨║╨╛╨▓╨╛╨╡ ╨▓╤Л╤А╨░╨╢╨╡╨╜╨╕╨╡.
• StringMatch ╨║╨░╨║ ╤Б╤В╤А╨╛╨║╨░: ╨н╤В╨╛╤В ╨░╤А╨│╤Г╨╝╨╡╨╜╤В ╤В╨░╨║╨╢╨╡ ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╨╝. ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨╕╤Б╨║╨╛╨╝╨╛╨╡ ╤Б╤В╤А╨╛╨║╨╛╨▓╨╛╨╡ ╨▓╤Л╤А╨░╨╢╨╡╨╜╨╕╨╡.
• ╨Э╨░╤З╨░╤В╤М ╨║╨░╨║ ╨┤╨╛╨╗╨│╨╛ = -1: ╨н╤В╨╛ ╨╜╨╡╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╨╣ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В. ╨г╨║╨░╨╖╤Л╨▓╨░╨╡╨╝ ╤З╨╕╤Б╨╗╨╛╨▓╨╛╨╡ ╨▓╤Л╤А╨░╨╢╨╡╨╜╨╕╨╡. ╨Я╨╛ ╤Г╨╝╨╛╨╗╤З╨░╨╜╨╕╤О ╨┐╤А╨╕╨╜╨╕╨╝╨░╨╡╤В ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ -1, ╤В╨╛ ╨╡╤Б╤В╤М ╨┐╨╛╨╕╤Б╨║ ╨╜╨░╤З╨╕╨╜╨░╨╡╤В╤Б╤П ╤Б ╨┐╨╛╨╖╨╕╤Ж╨╕╨╕ ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╨╡╨│╨╛ ╤Б╨╕╨╝╨▓╨╛╨╗╨░. ╨Х╤Б╨╗╨╕ ╨╝╤Л ╤Г╨║╨░╨╢╨╡╨╝ ╨╗╤О╨▒╨╛╨╡ ╨┐╨╛╨╗╨╛╨╢╨╕╤В╨╡╨╗╤М╨╜╨╛╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡, ╨╜╨░╨┐╤А╨╕╨╝╨╡╤А 80, ╨╛╨╜ ╨╜╨░╤З╨╜╨╡╤В ╨┐╨╛╨╕╤Б╨║ ╤Б ╨║╨╛╨╜╤Ж╨░ ╤Б╤В╤А╨╛╨║╨╕ ╨▓ ╤Н╤В╨╕╤Е 80 ╤Б╨╕╨╝╨▓╨╛╨╗╨░╤Е.
• ╨б╤А╨░╨▓╨╜╨╕╤В╤М ╨║╨░╨║ VbCompareMethod = vbBinaryCompare As Long: ╨н╤В╨╛╤В ╨░╤А╨│╤Г╨╝╨╡╨╜╤В ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨╜╨╡╨╛╨▒╤П╨╖╨░╤В╨╡╨╗╤М╨╜╤Л╨╝.

VBA CompareNumeric ExpressionIndicatesvbUseCompareOption-1 ╨Т╤Л╨┐╨╛╨╗╨╜╤П╨╡╤В ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╨╡, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╨╜╨░╤Б╤В╤А╨╛╨╣╨║╤Г ╨╕╨╜╤Б╤В╤А╤Г╨║╤Ж╨╕╨╕ Option Compare. ╨Ю╨┐╨╡╤А╨░╤В╨╛╤А Option Compare ╤Г╨║╨░╨╖╤Л╨▓╨░╨╡╤В ╨╝╨╡╤В╨╛╨┤ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╤П ╤Б╤В╤А╨╛╨║ ╨╝╨╛╨┤╤Г╨╗╤П (╨┤╨▓╨╛╨╕╤З╨╜╤Л╨╣, ╤В╨╡╨║╤Б╤В╨╛╨▓╤Л╨╣ ╨╕╨╗╨╕ ╨▒╨░╨╖╨╛╨▓╤Л╨╣). ╨Х╤Б╨╗╨╕ ╨╝╨╛╨┤╤Г╨╗╤М ╨╜╨╡ ╨▓╨║╨╗╤О╤З╨░╨╡╤В ╨╛╨┐╨╡╤А╨░╤В╨╛╤А Option Compare, ╨╝╨╡╤В╨╛╨┤ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╤П ╤В╨╡╨║╤Б╤В╨░ ╨┐╨╛ ╤Г╨╝╨╛╨╗╤З╨░╨╜╨╕╤О тАФ Binary.vbBinaryCompare0. ╨Т╤Л╨┐╨╛╨╗╨╜╤П╨╡╤В ╨┤╨▓╨╛╨╕╤З╨╜╨╛╨╡ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╨╡. (╨б ╤Г╤З╨╡╤В╨╛╨╝ ╤А╨╡╨│╨╕╤Б╤В╤А╨░) vbTextCompare1 ╨Т╤Л╨┐╨╛╨╗╨╜╤П╨╡╤В ╤В╨╡╨║╤Б╤В╨╛╨▓╨╛╨╡ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╨╡. (╨▒╨╡╨╖ ╤Г╤З╨╡╤В╨░ ╤А╨╡╨│╨╕╤Б╤В╤А╨░)vbDatabaseCompare2╨в╨╛╨╗╤М╨║╨╛ Microsoft Access. ╨Т╤Л╨┐╨╛╨╗╨╜╤П╨╡╤В ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╨╡ ╨╜╨░ ╨╛╤Б╨╜╨╛╨▓╨╡ ╨╕╨╜╤Д╨╛╤А╨╝╨░╤Ж╨╕╨╕ ╨▓ ╨▒╨░╨╖╨╡ ╨┤╨░╨╜╨╜╤Л╤Е.

╨Ь╤Л ╨╝╨╛╨╢╨╡╨╝ ╤Г╨║╨░╨╖╨░╤В╤М ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ╨┤╨╗╤П ╤Н╤В╨╛╨│╨╛ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В╨░.

╨Т╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╨╝╤Л╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П

1. INSTRREV ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В 0, ╨╡╤Б╨╗╨╕ ╨┐╤А╨╛╨▓╨╡╤А╨║╨░ ╤Б╤В╤А╨╛╨║╨╕ ╨╕╨╝╨╡╨╡╤В ╨╜╤Г╨╗╨╡╨▓╤Г╤О ╨┤╨╗╨╕╨╜╤Г ╨╕╨╗╨╕ ╤Б╨╛╨╛╤В╨▓╨╡╤В╤Б╤В╨▓╨╕╨╡ ╤Б╤В╤А╨╛╨║╨╕ ╨╜╨╡ ╨╜╨░╨╣╨┤╨╡╨╜╨╛ ╨╕╨╗╨╕ ‘╨╜╨░╤З╨╕╨╜╨░╤В╤М’ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В > ╨┤╨╗╨╕╨╜╨░ ╤Б╨╛╨▓╨┐╨░╨┤╨╡╨╜╨╕╤П ╤Б╤В╤А╨╛╨║╨╕.
2. ╨н╤В╨░ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ‘╨Э╤Г╨╗╨╡╨▓╨╛╨╣’ ╨╡╤Б╨╗╨╕ ╨┐╤А╨╛╨▓╨╡╤А╨║╨░ ╤Б╤В╤А╨╛╨║╨╕ ╨╕╨╗╨╕ ╤Б╨╛╨▓╨┐╨░╨┤╨╡╨╜╨╕╨╡ ╤Б╤В╤А╨╛╨║╨╕ ‘╨Э╤Г╨╗╨╡╨▓╨╛╨╣.’
3. ╨Х╤Б╨╗╨╕ ╤Б╨╛╨▓╨┐╨░╨┤╨╡╨╜╨╕╨╡ ╤Б╤В╤А╨╛╨║╨╕ ╨╕╨╝╨╡╨╡╤В ╨╜╤Г╨╗╨╡╨▓╤Г╤О ╨┤╨╗╨╕╨╜╤Г, ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В╤Б╤П ╨║ ╨╜╨░╤З╨╕╨╜╨░╤В╤М.
4. ╨Х╤Б╨╗╨╕ ╨┐╤А╨╕ ╨┐╤А╨╛╨▓╨╡╤А╨║╨╡ ╤Б╤В╤А╨╛╨║╨╕ ╨╜╨░╨╣╨┤╨╡╨╜╨╛ ╤Б╨╛╨▓╨┐╨░╨┤╨╡╨╜╨╕╨╡, ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ╨┐╨╛╨╖╨╕╤Ж╨╕╤О, ╨▓ ╨║╨╛╤В╨╛╤А╨╛╨╣ ╨╜╨░╨╣╨┤╨╡╨╜╨╛ ╤Б╨╛╨▓╨┐╨░╨┤╨╡╨╜╨╕╨╡.

╨Ъ╨░╨║ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Д╤Г╨╜╨║╤Ж╨╕╤О VBA INSTRREV?

.free_excel_div{╤Д╨╛╨╜:#d9d9d9;╤А╨░╨╖╨╝╨╡╤А ╤И╤А╨╕╤Д╤В╨░:16px;╤А╨░╨┤╨╕╤Г╤Б ╨│╤А╨░╨╜╨╕╤Ж╤Л:7px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨╛╤В╨╜╨╛╤Б╨╕╤В╨╡╨╗╤М╨╜╨░╤П;margin:30px;padding:25px 25px 25px 45px}.free_excel_div:before{content:»»;╤Д╨╛╨╜:url(╤Ж╨╡╨╜╤В╤А ╤Ж╨╡╨╜╤В╤А ╨▒╨╡╨╖ ╨┐╨╛╨▓╤В╨╛╤А╨░ #207245;╤И╨╕╤А╨╕╨╜╨░:70px;╨▓╤Л╤Б╨╛╤В╨░:70px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨░╨▒╤Б╨╛╨╗╤О╤В╨╜╨░╤П;╨▓╨╡╤А╤Е:50%;margin-top:-35px;╤Б╨╗╨╡╨▓╨░:-35px;╨│╤А╨░╨╜╨╕╤Ж╨░:5px ╤Б╨┐╨╗╨╛╤И╨╜╨░╤П #fff;╨│╤А╨░╨╜╨╕╤Ж╨░-╤А╨░╨┤╨╕╤Г╤Б:50%} ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╤Б╨║╨░╤З╨░╤В╤М ╤Н╤В╨╛╤В ╤И╨░╨▒╨╗╨╛╨╜ Excel VBA INSTRREV ╨╖╨┤╨╡╤Б╤М — VBA INSTRREV ╨и╨░╨▒╨╗╨╛╨╜ Excel

╨Я╤А╨╡╨┤╨┐╨╛╨╗╨╛╨╢╨╕╨╝, ╤Г ╨╜╨░╤Б ╨╡╤Б╤В╤М ╨┤╨░╨╜╨╜╤Л╨╡ ╨╛ ╨╜╨░╨╖╨▓╨░╨╜╨╕╤П╤Е ╤Д╨╕╨╗╤М╨╝╨╛╨▓ ╨╕ ╨╕╤Е ╤А╨╡╨╢╨╕╤Б╤Б╨╡╤А╨░╤Е. ╨Ь╤Л ╤Е╨╛╤В╨╕╨╝ ╤А╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╨╕╨╝╨╡╨╜╨░ ╤А╨╡╨╢╨╕╤Б╤Б╨╡╤А╨╛╨▓.

╨г ╨╜╨░╤Б ╨╡╤Б╤В╤М ╨┤╨░╨╜╨╜╤Л╨╡ ╨▓ 1201 ╤Б╤В╤А╨╛╨║╨╡. ╨в╨░╨║ ╤З╤В╨╛ ╨╡╤Б╨╗╨╕ ╨╝╤Л ╨▒╤Г╨┤╨╡╨╝ ╨┤╨╡╨╗╨░╤В╤М ╤Н╤В╤Г ╨╖╨░╨┤╨░╤З╤Г ╨▓╤А╤Г╤З╨╜╤Г╤О, ╤Н╤В╨╛ ╨╖╨░╨╣╨╝╨╡╤В ╨╝╨╜╨╛╨│╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕.

╨з╤В╨╛╨▒╤Л ╤Б╨┤╨╡╨╗╨░╤В╤М ╤В╨╛ ╨╢╨╡ ╤Б╨░╨╝╨╛╨╡, ╨╝╤Л ╨▒╤Г╨┤╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨║╨╛╨┤ VBA╨Ш╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╕╨╡ ╨║╨╛╨┤╨░ VBA╨Ъ╨╛╨┤ VBA ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╨╜╨░╨▒╨╛╤А╤Г ╨╕╨╜╤Б╤В╤А╤Г╨║╤Ж╨╕╨╣, ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╜╤Л╤Е ╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╨╡╨╗╨╡╨╝ ╨╜╨░ ╤П╨╖╤Л╨║╨╡ ╨┐╤А╨╛╨│╤А╨░╨╝╨╝╨╕╤А╨╛╨▓╨░╨╜╨╕╤П ╨┐╤А╨╕╨╗╨╛╨╢╨╡╨╜╨╕╨╣ Visual Basic ╨▓ ╤А╨╡╨┤╨░╨║╤В╨╛╤А╨╡ Visual Basic (VBE) ╨┤╨╗╤П ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╨╛╨╣ ╨╖╨░╨┤╨░╤З╨╕.╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡. ╨и╨░╨│╨╕:

• ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╜╨░╨╢╨░╤В╤М ╨╜╨░ ‘Visual Basic’ ╨Ъ╨╛╨╝╨░╨╜╨┤╨░ ╨┤╨╛╤Б╤В╤Г╨┐╨╜╨░ ╨▓ ‘╨Ъ╨╛╨┤’ ╨У╤А╤Г╨┐╨┐╨░ ╨▓ ┬л╨а╨░╨╖╤А╨░╨▒╨╛╤В╤З╨╕╨║┬╗ Tab, ╨╕╨╗╨╕ ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╜╨░╨╢╨░╤В╤М Alt+F11 ╤З╤В╨╛╨▒╤Л ╨╛╤В╨║╤А╤Л╤В╤М ╤А╨╡╨┤╨░╨║╤В╨╛╤А Visual Basic.

• ╨╝╤Л ╨▓╤Б╤В╨░╨▓╨╕╨╝ ╨╝╨╛╨┤╤Г╨╗╤М ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╨Ь╨╡╨╜╤О ┬л╨Т╤Б╤В╨░╨▓╨╕╤В╤М┬╗.

• ╨Ь╤Л ╤Б╨╛╨╖╨┤╨░╨┤╨╕╨╝ ╨┐╨╛╨┤╨┐╤А╨╛╨│╤А╨░╨╝╨╝╤Г ╤Б ╨╕╨╝╨╡╨╜╨╡╨╝ ┬л╨а╨░╨╖╨┤╨╡╨╗╨╡╨╜╨╕╨╡ ╨╕╨╝╨╡╨╜┬╗.

• ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤И╨╡╤Б╤В╤М ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╤Л╤Е тАФ ╨╛╨┤╨╜╨░ ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╣ ╤П╤З╨╡╨╡╨║, ╨║╨╛╤В╨╛╤А╤Л╨╝╨╕ ╨╝╤Л ╨▒╤Г╨┤╨╡╨╝ ╨╝╨░╨╜╨╕╨┐╤Г╨╗╨╕╤А╨╛╨▓╨░╤В╤М. ╨Т╤В╨╛╤А╨╛╨╣ ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨┐╨╛╨╖╨╕╤Ж╨╕╨╕ ╨┐╨╡╤А╨▓╨╛╨│╨╛ ╨┐╤А╨╛╨▒╨╡╨╗╨░ ╨▓ ╤Б╤В╤А╨╛╨║╨╡, ╤В╤А╨╡╤В╨╕╨╣ ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╨╡╨│╨╛ ╨┐╤А╨╛╨▒╨╡╨╗╨░ ╨▓ ╤Б╤В╤А╨╛╨║╨╡, ╤З╨╡╤В╨▓╨╡╤А╤В╤Л╨╣ ╨┤╨╗╤П ╤Е╤А╨░╨╜╨╡╨╜╨╕╤П ╨╜╨╛╨╝╨╡╤А╨░ ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╨╡╨╣ ╤Б╤В╤А╨╛╨║╨╕ ╨╕ ╨┐╤П╤В╤Л╨╣ ╨╕ ╤И╨╡╤Б╤В╨╛╨╣ ╨┤╨╗╤П ╤Б╤В╤А╨╛╨║╨╕ ╨╕ ╤Б╤В╨╛╨╗╨▒╤Ж╨░, ╨║╨╛╤В╨╛╤А╤Л╨╡ ╨╝╤Л ╨▒╤Г╨┤╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨┤╨╗╤П ╨┐╨╡╤З╨░╤В╨╕ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╣ ╨▓ ╤Б╨╛╤Б╨╡╨┤╨╜╨╕╤Е ╨║╨╗╨╡╤В╨║╨╕.

• ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╣ ╨║╨╛╨┤, ╤З╤В╨╛╨▒╤Л ╤Г╨╖╨╜╨░╤В╤М ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╤О╤О ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╜╤Г╤О ╤Б╤В╤А╨╛╨║╤Г ╨╜╨░ ╨╗╨╕╤Б╤В╨╡.

╨н╤В╨╛╤В ╨║╨╛╨┤ ╤Б╨╜╨░╤З╨░╨╗╨░ ╨▓╤Л╨▒╨╡╤А╨╡╤В ╤П╤З╨╡╨╣╨║╤Г B1, ╨░ ╨╖╨░╤В╨╡╨╝ ╨▓╤Л╨▒╨╡╤А╨╡╤В ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╤О╤О ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╜╤Г╤О ╤П╤З╨╡╨╣╨║╤Г ╨▓ ╤В╨╛╨╝ ╨╢╨╡ ╤Б╤В╨╛╨╗╨▒╤Ж╨╡, ╨░ ╨╖╨░╤В╨╡╨╝ ╨╝╤Л ╨╜╨░╨╖╨╜╨░╤З╨╕╨╝ ╨╜╨╛╨╝╨╡╤А ╤Б╤В╤А╨╛╨║╨╕ ╤П╤З╨╡╨╣╨║╨╕ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ ┬лLastRow┬╗.

• ╨в╨╡╨┐╨╡╤А╤М, ╤З╤В╨╛╨▒╤Л ╨╝╨░╨╜╨╕╨┐╤Г╨╗╨╕╤А╨╛╨▓╨░╤В╤М ╨▓╤Б╨╡╨╝╨╕ ╤П╤З╨╡╨╣╨║╨░╨╝╨╕ ╨▓ ╤Б╤В╨╛╨╗╨▒╤Ж╨╡ B, ╨╝╤Л ╨╖╨░╨┐╤Г╤Б╤В╨╕╨╝ ╤Ж╨╕╨║╨╗ «╨┤╨╗╤П».

• ╨Ь╤Л ╨▒╤Г╨┤╨╡╨╝ ╤Е╤А╨░╨╜╨╕╤В╤М ╨╖╨╜╨░╤З╨╡╨╜╨╕╤П ╤П╤З╨╡╨╡╨║ ╤Б╤В╨╛╨╗╨▒╤Ж╨░ B ╨╛╤В ╤Б╤В╤А╨╛╨║╨╕ 2 ╨┤╨╛ ╤Б╤В╤А╨╛╨║╨╕ 1201 ╨╛╨┤╨╜╤Г ╨╖╨░ ╨┤╤А╤Г╨│╨╛╨╣ ╨▓ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨╛╨╣ s, ╤З╤В╨╛╨▒╤Л ╨╝╨░╨╜╨╕╨┐╤Г╨╗╨╕╤А╨╛╨▓╨░╤В╤М ╨╕╨╝╨╕.

• ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ╨┐╨░╤А╨░╨╝╨╡╤В╤А╨░ ╨┐╨╡╤А╨╡╨╝╨╡╨╜╨╜╨░╤П ┬л╨б╤В╨╛╨╗╨▒╨╡╤Ж┬╗ ╨┤╨╛ 3, ╤В╨░╨║ ╨║╨░╨║ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╜╨░╨┐╨╕╤Б╨░╤В╤М ╤А╨░╨╖╨┤╨╡╨╗╨╡╨╜╨╜╤Л╨╡ ╨╕╨╝╨╡╨╜╨░╨а╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╨╕╨╝╨╡╨╜╨░╨а╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╨╕╨╝╤П ╨▓ Excel ╨╛╤В╨╜╨╛╤Б╨╕╤В╤Б╤П ╨║ ╤А╨░╨╖╨┤╨╡╨╗╨╡╨╜╨╕╤О ╨╕╨╝╨╡╨╜ ╨╜╨░ ╨┤╨▓╨░ ╨╛╤В╨┤╨╡╨╗╤М╨╜╤Л╤Е ╤Б╤В╨╛╨╗╨▒╤Ж╨░. ╨Ю╨╜ ╤А╨░╨╖╨▒╨╕╨▓╨░╨╡╤В ╨▓╤Б╨╡ ╨╕╨╝╤П ╨╜╨░ ╨╕╨╝╤П, ╤Д╨░╨╝╨╕╨╗╨╕╤О ╨╕ ╨╛╤В╤З╨╡╤Б╤В╨▓╨╛. ╨Ь╤Л ╨╝╨╛╨╢╨╡╨╝ ╤А╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╨╕╨╝╨╡╨╜╨░, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╨╜╨╡╤Б╨║╨╛╨╗╤М╨║╨╛ ╤Б╨┐╨╛╤Б╨╛╨▒╨╛╨▓, ╤В╨░╨║╨╕╤Е ╨║╨░╨║ ┬л╨╝╨╡╤В╨╛╨┤ ╤В╨╡╨║╤Б╤В╨░ ╨▓ ╤Б╤В╨╛╨╗╨▒╨╡╤Ж┬╗ ╨╕ ┬л╨╝╨╡╤В╨╛╨┤ ╤Д╨╛╤А╨╝╤Г╨╗╤Л┬╗.

• ╨Х╤Б╨╗╨╕ ╤Б╤В╤А╨╛╨║╨░ ╤Б╨╛╤Б╤В╨╛╨╕╤В ╤В╨╛╨╗╤М╨║╨╛ ╨╕╨╖ ╨╛╨┤╨╜╨╛╨│╨╛ ╤Б╨╗╨╛╨▓╨░, ╨▓ ╤Б╤В╤А╨╛╨║╨╡ ╨╜╨╡╤В ╨┐╤А╨╛╨▒╨╡╨╗╨░. ╨Ч╨░╤В╨╡╨╝ ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨░ ╤Б╨░╨╝╨░ ╤Б╤В╤А╨╛╨║╨░ ╨▓ ╨║╨░╤З╨╡╤Б╤В╨▓╨╡ ╨▓╤Л╨▓╨╛╨┤╨░. ╨Ф╨╗╤П ╤Н╤В╨╛╨│╨╛ ╨╖╨░╨┤╨░╨┤╨╕╨╝ ╤Г╤Б╨╗╨╛╨▓╨╕╨╡ ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О ╨Ю╨┐╨╡╤А╨░╤В╨╛╤А ┬л╨╡╤Б╨╗╨╕ ╨╕ ╨╡╤Й╨╡┬╗ ╤Б╨╛ ╨╖╨╜╨░╨║╨╛╨╝ ╨╖╨▓╨╡╨╖╨┤╨╛╤З╨║╨╕ (╨╛╨▒╨╛╨╖╨╜╨░╤З╨░╤О╤Й╨╕╨╝ ╨╛╨┤╨╕╨╜ ╨╕╨╗╨╕ ╨╜╨╡╤Б╨║╨╛╨╗╤М╨║╨╛ ╤Б╨╕╨╝╨▓╨╛╨╗╨╛╨▓) ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╝ ╨╛╨▒╤А╨░╨╖╨╛╨╝:

• ╨Х╤Б╨╗╨╕ ╨▓ ╤Б╤В╤А╨╛╨║╨╡ ╨╡╤Б╤В╤М ╨┐╤А╨╛╨▒╨╡╨╗, ╨╝╤Л ╤Е╨╛╤В╨╕╨╝ ╤А╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╤Б╤В╤А╨╛╨║╤Г. ╨з╤В╨╛╨▒╤Л ╤Б╨┤╨╡╨╗╨░╤В╤М ╤В╨╛ ╨╢╨╡ ╤Б╨░╨╝╨╛╨╡, ╨╝╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╗╨╕ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ INSTR ╨╕ INSTRREV ╤З╤В╨╛╨▒╤Л ╤Г╨╖╨╜╨░╤В╤М ╨┐╨╡╤А╨▓╤Г╤О ╨╕ ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╤О╤О ╨║╨╛╤Б╨╝╨╕╤З╨╡╤Б╨║╨╕╨╡ ╨┐╨╛╨╖╨╕╤Ж╨╕╨╕ ╤Б╨╛╨╛╤В╨▓╨╡╤В╤Б╤В╨▓╨╡╨╜╨╜╨╛. ╨н╤В╨╛ ╨┐╨╛╨╝╨╛╨╢╨╡╤В ╨╜╨░╨╝ ╨╜╨░╨╣╤В╨╕ ╨┐╨╡╤А╨▓╨╛╨╡ ╨╕ ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╨╡╨╡ ╤Б╨╗╨╛╨▓╨╛ ╨▓ ╤Б╤В╤А╨╛╨║╨╡ ╤Б╨╛╨╛╤В╨▓╨╡╤В╤Б╤В╨▓╨╡╨╜╨╜╨╛.

╨д╤Г╨╜╨║╤Ж╨╕╤П INSTR ╨┐╤А╨╕╨╜╨╕╨╝╨░╨╡╤В ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╣ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В:

╨Ф╨╡╤В╨░╨╗╨╕ ╨░╤А╨│╤Г╨╝╨╡╨╜╤В╨░

• ╨Э╨░╤З╨╕╨╜╨░╤В╤М: ╨б ╨║╨░╨║╨╛╨╣ ╨┐╨╛╨╖╨╕╤Ж╨╕╨╕ ╨╜╨░╤З╨╕╨╜╨░╤В╤М.
• ╨б╤В╤А╨╛╨║╨░1: ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨╕╤Б╨║╨╛╨╝╨╛╨╡ ╤Б╤В╤А╨╛╨║╨╛╨▓╨╛╨╡ ╨▓╤Л╤А╨░╨╢╨╡╨╜╨╕╨╡.
• ╨б╤В╤А╨╛╨║╨░2: ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨╕╤Б╨║╨╛╨╝╨╛╨╡ ╤Б╤В╤А╨╛╨║╨╛╨▓╨╛╨╡ ╨▓╤Л╤А╨░╨╢╨╡╨╜╨╕╨╡.

╨Я╨╛ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╤О ╤Б ╨╝╨╡╤В╨╛╨┤╨╛╨╝ VbCompareMethod: ╨г╨║╨░╨╖╨░╨╜╨╕╨╡ ╨╝╨╡╤В╨╛╨┤╨░ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╤П. ╨Я╨╛ ╤Г╨╝╨╛╨╗╤З╨░╨╜╨╕╤О ╤Н╤В╨╛ ╨▒╨╕╨╜╨░╤А╨╜╨╛╨╡ ╤Б╤А╨░╨▓╨╜╨╡╨╜╨╕╨╡.

• ╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М VBA ╨Ы╨Х╨Т╨л╨Щ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨┤╨╗╤П ╨╕╨╖╨▓╨╗╨╡╤З╨╡╨╜╨╕╤П ╨╗╨╡╨▓╤Л╤Е ╤Б╨╕╨╝╨▓╨╛╨╗╨╛╨▓ ╨╕╨╖ ╤Б╤В╤А╨╛╨║╨╕. ╨Ь╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╗╨╕ ‘╨Я╨╛╤Б╨╗╨╡╨┤╨╜╨╕╨╣ ╨║╨╛╤Б╨╝╨╛╤Б-1‘, ╤З╤В╨╛╨▒╤Л ╨┐╨╛╨╗╤Г╤З╨╕╤В╤М ╨╗╨╡╨▓╤Л╨╡ ╤Б╨╕╨╝╨▓╨╛╨╗╤Л ╨┐╨╡╤А╨╡╨┤ ╨┐╨╛╤Б╨╗╨╡╨┤╨╜╨╕╨╝ ╨┐╤А╨╛╨▒╨╡╨╗╨╛╨╝.

╨Ь╤Л ╨┤╨╛╨╗╨╢╨╜╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨д╤Г╨╜╨║╤Ж╨╕╨╕ ╨Т╨Я╨а╨Р╨Т╨Ю ╨╕ ╨Ф╨Ы╨Ш╨Э. ╨┤╨╗╤П ╨╕╨╖╨▓╨╗╨╡╤З╨╡╨╜╨╕╤П ╨┐╤А╨░╨▓╨╕╨╗╤М╨╜╤Л╤Е ╤Б╨╕╨╝╨▓╨╛╨╗╨╛╨▓ ╨╕╨╖ ╤Б╤В╤А╨╛╨║╨╕ ╨┐╨╛╤Б╨╗╨╡ ╨┐╨╡╤А╨▓╨╛╨│╨╛ ╨┐╤А╨╛╨▒╨╡╨╗╨░.

╨Ь╤Л ╨┤╨╛╨╗╨╢╨╜╤Л ╨╜╨░╨┐╨╕╤Б╨░╤В╤М ╨╝╨░╨║╤А╨╛╤Б. ╨в╨╡╨┐╨╡╤А╤М ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╖╨░╨┐╤Г╤Б╤В╨╕╤В╤М ╨╝╨░╨║╤А╨╛╤Б ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О F5 ╨║╨╗╤О╤З.

╨Ъ╨╛╨┤:

Sub SplittingNames() Dim s As String Dim FirstSpace As Long Dim LastSPace As Long Dim LastRow As Long Dim Row As Long Dim Column As Long Sheet1.Range(«B1»).Select Selection.End(xlDown).Select LastRow = ActiveCell. Row For Row = 2 To LastRow s = Sheet1.Cells(Row, 2).Value Column = 3 If s Like «* *» Then FirstSpace = InStr(1, s, » «) LastSPace = InStrRev(s, » «) Sheet1.Cells(Row, Column).Value = Left(s, LastSPace — 1) Sheet1.Cells(Row, Column + 1).Value = Right(s, Len(s) — FirstSpace) Else Sheet1.Cells(Row, Column).Value = s End If Next End Sub

╨г ╨╜╨░╤Б ╤Г╨╢╨╡ ╨╡╤Б╤В╤М ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В.

╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

╨н╤В╨░ ╤Б╤В╨░╤В╤М╤П ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╨╗╤П╨╡╤В ╤Б╨╛╨▒╨╛╨╣ ╤А╤Г╨║╨╛╨▓╨╛╨┤╤Б╤В╨▓╨╛ ╨┐╨╛ VBA INSTRREV. ╨Ч╨┤╨╡╤Б╤М ╨╝╤Л ╨╛╨▒╤Б╤Г╨┤╨╕╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╕╨╡ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ VBA INSTRREV, ╨┐╤А╨╕╨╝╨╡╤А╨╛╨▓ ╨╕ ╨╖╨░╨│╤А╤Г╨╢╨░╨╡╨╝╨╛╨│╨╛ ╤И╨░╨▒╨╗╨╛╨╜╨░ Excel. ╨Э╨╕╨╢╨╡ ╨┐╤А╨╕╨▓╨╡╨┤╨╡╨╜╤Л ╨╜╨╡╨║╨╛╤В╨╛╤А╤Л╨╡ ╨┐╨╛╨╗╨╡╨╖╨╜╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕ Excel, ╤Б╨▓╤П╨╖╨░╨╜╨╜╤Л╨╡ ╤Б VBA:

• ╨Р╨б╨ж ╨▓ VBA
• ╨Т╤Б╤В╨░╨▓╨╕╤В╤М ╤В╨╡╨║╤Б╤В╨╛╨▓╨╛╨╡ ╨┐╨╛╨╗╨╡ ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О VBA