1 просмотров
Π Π΅ΠΉΡ‚ΠΈΠ½Π³ ΡΡ‚Π°Ρ‚ΡŒΠΈ
1 Π·Π²Π΅Π·Π΄Π°2 Π·Π²Π΅Π·Π΄Ρ‹3 Π·Π²Π΅Π·Π΄Ρ‹4 Π·Π²Π΅Π·Π΄Ρ‹5 Π·Π²Π΅Π·Π΄
Π—Π°Π³Ρ€ΡƒΠ·ΠΊΠ°...

Как Π² Excel ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ строки с ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹ΠΌ тСкстом?

Как Π·Π°ΠΏΡ€Π΅Ρ‚ΠΈΡ‚ΡŒ ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒ ячССк Π² Excel

Как ΠΏΡ€Π΅Π΄ΠΎΡ‚Π²Ρ€Π°Ρ‚ΠΈΡ‚ΡŒ ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒ содСрТимого ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹Ρ… ячССк (ΠΈΠ»ΠΈ всСй строки ΠΈΠ»ΠΈ столбца) Π² Excel, оставив ΠΈΡ… Π²ΠΈΠ΄ΠΈΠΌΡ‹ΠΌΠΈ Π½Π° экранС ΠΏΡ€ΠΈ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠΈ Ρ„Π°ΠΉΠ»Π°? Π’ ΠΈΠ΄Π΅Π°Π»Π΅, я Ρ…ΠΎΡ‚Π΅Π» Π±Ρ‹ ΠΈΠΌΠ΅Ρ‚ΡŒ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ Π΄Π΅Π»Π°Ρ‚ΡŒ это с ячСйками Π²Π½ΡƒΡ‚Ρ€Π΅Π½Π½Π΅ΠΉ элСктронной Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ (Ρ‚.Π΅. Π½Π΅ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ с ΠΏΡ€Π°Π²Ρ‹ΠΌ столбцом (столбцами) ΠΈΠ»ΠΈ Π½ΠΈΠΆΠ½Π΅ΠΉ строкой (строками)). Π‘ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ строки (строк) ΠΈΠ»ΠΈ столбца (столбцов) Π½Π΅ΠΏΡ€ΠΈΠ΅ΠΌΠ»Π΅ΠΌΠΎ, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ ΠΌΠ½Π΅ Π½ΡƒΠΆΠ½ΠΎ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Ρ€Π°Π·ΠΌΠ΅Ρ€ ячССк, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ ΠΎΠ±Ρ‰ΠΈΠΉ Π²ΠΈΠ΄ листа.

Π‘Ρ‹Π»ΠΎ Π±Ρ‹ Π½Π΅ΠΏΠ»ΠΎΡ…ΠΎ, Ссли Π±Ρ‹ сущСствовал способ опрСдСлСния условного Ρ„ΠΎΡ€ΠΌΠ°Ρ‚Π° Π½Π° основС Ρ‚ΠΎΠ³ΠΎ, ΠΏΠ΅Ρ‡Π°Ρ‚Π°Π΅Ρ‚ Π»ΠΈ Excel Π² Π΄Π°Π½Π½Ρ‹ΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ‚. Π― Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ ΡƒΡΡ‚Π°Π½Π°Π²Π»ΠΈΠ²Π°ΡŽ Π±Π΅Π»Ρ‹ΠΉ Ρ†Π²Π΅Ρ‚ тСкста ΠΏΠ΅Ρ€Π΅Π΄ ΠΏΠ΅Ρ‡Π°Ρ‚ΡŒΡŽ (ΠΈ Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ мСняю Π΅Π³ΠΎ ΠΎΠ±Ρ€Π°Ρ‚Π½ΠΎ послС ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ), Π½ΠΎ я ΡΡ‡ΠΈΡ‚Π°ΡŽ, Ρ‡Ρ‚ΠΎ это Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±Ρ‹Ρ‚ΡŒ автоматичСский процСсс.

Для этого ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡ€ΠΈΠΌΠ΅Π½ΠΈΡ‚ΡŒ ΠΎΠ±Ρ‹Ρ‡Π½ΠΎΠ΅ (Π½Π΅ условноС) Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅. Π§Ρ‚ΠΎΠ±Ρ‹ ΠΎΡ‚Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ячСйку, строку ΠΈ/ΠΈΠ»ΠΈ столбСц, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Π»Π΅Π½Ρ‚Ρƒ Π²Π½ΠΈΠ·Ρƒ («Π“лавная» * «Π―Ρ‡Π΅ΠΉΠΊΠΈ» * «Π€ΠΎΡ€ΠΌΠ°Ρ‚») ΠΈΠ»ΠΈ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Ctrl + 1.

На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π§ΠΈΡΠ»ΠΎ» Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠšΠ°Ρ‚Π΅Π³ΠΎΡ€ΠΈΡ = «ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠΉ» ΠΈ Π² ΠΏΠΎΠ»Π΅ «Π’ΠΈΠΏ» Π²Π²Π΅Π΄ΠΈΡ‚Π΅

Excel ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π΅Ρ‚ ΠΏΡƒΡΡ‚ΡƒΡŽ строку Π² ячСйках, содСрТащих ΠΏΠΎΠ»ΠΎΠΆΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎΠ΅ число, ΠΎΡ‚Ρ€ΠΈΡ†Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎΠ΅ число, ноль ΠΈΠ»ΠΈ (нСчисловой) тСкст. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ, любоС Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅, Π½Π΅ ΡΠ²Π»ΡΡŽΡ‰Π΅Π΅ΡΡ ошибкой, Π±ΡƒΠ΄Π΅Ρ‚ скрыто Π½Π° экранС ΠΈ ΠΏΡ€ΠΈ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ.

Если Π²Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅ Office 2010, Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ «Π€Π°ΠΉΠ» -> ΠŸΠ΅Ρ‡Π°Ρ‚ΡŒ -> ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹ страницы -> Лист (Π²ΠΊΠ»Π°Π΄ΠΊΠ°)» Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ ΠΎΠΏΡ†ΠΈΡŽ «ΠžΠ±Π»Π°ΡΡ‚ΡŒ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ». Π’ ΠΌΠΎΠ΅ΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ Π±ΡƒΠ΄ΡƒΡ‚ Π½Π°ΠΏΠ΅Ρ‡Π°Ρ‚Π°Π½Ρ‹ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ столбцы A:J, ΠΎΠ΄Π½Π°ΠΊΠΎ Π½Π° экран выводится всС.

Π­Ρ‚ΠΎ — аспСкт Π΄ΠΈΠ°Π»ΠΎΠ³Π°:

Π‘ΠΊΡ€ΠΈΠ½ΡˆΠΎΡ‚
(НаТмитС Π½Π° ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡƒΠ²Π΅Π»ΠΈΡ‡ΠΈΡ‚ΡŒ)

Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Ρ‚Π°ΠΊΠΆΠ΅ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΡŒ ΠΊΠ°ΠΊ «Π Π°Π·ΠΌΠ΅Ρ‚ΠΊΠ° страницы». β†’ «ΠΠ°ΡΡ‚Ρ€ΠΎΠΉΠΊΠΈ страницы» β†’ (угловая ΠΊΠ½ΠΎΠΏΠΊΠ°) β†’ «ΠΠ°ΡΡ‚Ρ€ΠΎΠΉΠΊΠΈ страницы» β†’ «Π›ΠΈΡΡ‚»:

Π­Ρ‚ΠΎ Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅ Π½Π΅ Ρ‚Ρ€Π΅Π±ΡƒΠ΅Ρ‚ ΠΎΡ‚ вас выполнСния ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹Ρ… дСйствий Π΄ΠΎ ΠΈ послС ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ задания ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ. Оно основано Π½Π° ΠΊΠΎΠ½Ρ†Π΅ΠΏΡ†ΠΈΠΈ использования «ΠΎΠ±Π»Π°ΡΡ‚ΠΈ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ», ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ ВСрСнсом ΠΈ Π”ΠΎΠ½ΠΎΠΌ Ливси. Π£Π΄Π°Π»ΠΈΡ‚Π΅ ячСйки, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ Π½Π΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ, помСстив ΠΈΡ… Π·Π° ΠΏΡ€Π΅Π΄Π΅Π»Ρ‹ области ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ. Если Π²Π°ΠΌ этого достаточно, Ρ‚ΠΎ всС Π³ΠΎΡ‚ΠΎΠ²ΠΎ.

ΠŸΡ€ΠΈ Ρ€Π΅Π΄Π°ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠΈ листа Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π·Π°Ρ…ΠΎΡ‚Π΅Ρ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΈΡΠΊΠ»ΡŽΡ‡Π΅Π½Π½Ρ‹Π΅ ячСйки ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Π»ΠΈΡΡŒ Π² области ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ. Если Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ ΠΊΠ°ΠΆΠ΄ΡƒΡŽ ячСйку, Π½ΠΎ Π½Π΅ ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ Π΅Π΅, сдСлайтС ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅Π΅:

  • Π’ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ «Ρ„ΠΎΡ€ΠΌΡƒ». (Π›ΡƒΡ‡ΡˆΠ΅ всСго ΠΏΠΎΠ΄Ρ…ΠΎΠ΄ΠΈΡ‚ ΠΏΡ€ΡΠΌΠΎΡƒΠ³ΠΎΠ»ΡŒΠ½ΠΈΠΊ). ΠŸΠΎΠΌΠ΅ΡΡ‚ΠΈΡ‚Π΅ Π΅Π³ΠΎ Π½Π°Π΄ ячСйкой, Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ ΠΏΠΎΡΠ²ΠΈΡ‚ΡŒΡΡ Π΄Π°Π½Π½Ρ‹Π΅. Π’ΠΈΠ·ΡƒΠ°Π»ΡŒΠ½ΠΎ ΠΎΡ‚Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΡƒΠΉΡ‚Π΅ Π΅Π³ΠΎ Ρ‚Π°ΠΊ, ΠΊΠ°ΠΊ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ½ выглядСл. Π›ΡƒΡ‡ΡˆΠ΅ всСго Π½Π΅ ΠΈΠΌΠ΅Ρ‚ΡŒ Π³Ρ€Π°Π½ΠΈΡ†. УстановитС Ρ†Π²Π΅Ρ‚ Π·Π°Π»ΠΈΠ²ΠΊΠΈ Π½Π° Π²Ρ‹Π±Ρ€Π°Π½Π½Ρ‹ΠΉ Π²Π°ΠΌΠΈ Ρ†Π²Π΅Ρ‚ Ρ„ΠΎΠ½Π° ΠΈΠ»ΠΈ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠΉΡ‚Π΅ Ρ†Π²Π΅Ρ‚ Π·Π°Π»ΠΈΠ²ΠΊΠΈ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Ρ†Π²Π΅Ρ‚ Π·Π°Π»ΠΈΠ²ΠΊΠΈ Π±Π°Π·ΠΎΠ²ΠΎΠΉ ячСйки просвСчивал (Π° сама Ρ„ΠΈΠ³ΡƒΡ€Π° Π±Ρ‹Π»Π° Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ).
  • НастройтС Ρ„ΠΎΡ€ΠΌΡƒ Π½Π° ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ содСрТимого Π½ΡƒΠΆΠ½ΠΎΠΉ ячСйки, Π²Ρ‹Π±Ρ€Π°Π² Ρ„ΠΎΡ€ΠΌΡƒ ΠΈ Π½Π°Π±Ρ€Π°Π² ссылку (Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, =D15 ) Π² строкС Ρ„ΠΎΡ€ΠΌΡ‹ Π² Π²Π΅Ρ€Ρ…Π½Π΅ΠΉ части. НС Π²Π²ΠΎΠ΄ΠΈΡ‚Π΅ Ρ„ΠΎΡ€ΠΌΡƒ просто Ρ‚Π°ΠΊ; Π² этом случаС Ρ„ΠΎΡ€ΠΌΡƒΠ»Π° ( =D15 ) Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹Π²Π΅Π΄Π΅Π½Π° дословно.
  • Π©Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Ρ„ΠΎΡ€ΠΌΡƒ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ Π€ΠΎΡ€ΠΌΠ°Ρ‚ Ρ„ΠΎΡ€ΠΌΡ‹. На Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ «Π‘войства» ΠΌΠΎΠΆΠ½ΠΎ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ, ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ ΠΈΠ»ΠΈ Π½Π΅Ρ‚ Ρ„ΠΎΡ€ΠΌΡƒ (сняв Ρ„Π»Π°ΠΆΠΎΠΊ «ΠŸΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚»). (Π’ Excel 2013 это находится Π² Ρ€Π°Π·Π΄Π΅Π»Π΅ Настройки Ρ„ΠΎΡ€ΠΌΡ‹ β†’ Π Π°Π·ΠΌΠ΅Ρ€ ΠΈ свойства β†’ Бвойства).
Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅:
Как быстро ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Ρ‚ΡŒ числа Π² английскиС слова Π² Excel?

Если Π±Ρ‹ ΠΌΠ½Π΅ ΠΏΡ€ΠΈΡˆΠ»ΠΎΡΡŒ ΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚ΡŒ вашим инструкциям, я Π±Ρ‹ поступил ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ:

Π Π΅Π΄Π°ΠΊΡ‚ΠΎΡ€ ΠΊΠΎΠ΄Π° (VBA) прСдоставляСт ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΡƒΡŽ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΎΠ½Π°Π»ΡŒΠ½ΠΎΡΡ‚ΡŒ:

Π§Ρ‚ΠΎΠ±Ρ‹ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ столбцы ΠΈΠ»ΠΈ строки, Π½Π°ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ ΠΈΡ…, Π° Π·Π°Ρ‚Π΅ΠΌ Ρ€Π°ΡΠΊΡ€Ρ‹Ρ‚ΡŒ.

Или ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚Π΅ ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΡƒΡŽ Ρ‡Π°ΡΡ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ столбцы (Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ скрыты столбцы B ΠΈ D)

Или ΡΠΊΡ€Ρ‹Ρ‚ΡŒ всС строки с пустой ячСйкой Π² столбцС А:

Π― Ρ€Π΅ΡˆΠΈΠ» Ρ‚Ρƒ ΠΆΠ΅ ΠΏΡ€ΠΎΠ±Π»Π΅ΠΌΡƒ, создав ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹ΠΉ лист ΠΈ скопировав Ρ‚ΡƒΠ΄Π° ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΠΎΠ½Π½ΡƒΡŽ ссылку. Π‘ΠΊΠΎΠΏΠΈΡ€ΡƒΠΉΡ‚Π΅ вСсь исходный лист (Ctrl + C ) ΠΈ Π²ΡΡ‚Π°Π²ΡŒΡ‚Π΅ Π΅Π³ΠΎ. ΠŸΠ΅Ρ€Π΅ΠΉΠ΄ΠΈΡ‚Π΅ Π½Π° Π½ΠΎΠ²Ρ‹ΠΉ лист ΠΈ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΏΠ΅Ρ€Π²ΡƒΡŽ ячСйку. Π’ ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π°Ρ… вставки появится Π·Π½Π°Ρ‡ΠΎΠΊ ссылки. Если Π²Ρ‹ вставитС ΠΈΠ·ΠΎΠ±Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅ Ρ†Π΅Π»ΠΈΠΊΠΎΠΌ, ΠΎΠ½ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ Π½Π΅Ρ„ΠΎΡ€ΠΌΠ°Ρ‚ΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹ΠΌ, поэтому Π²Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ Π±ΡƒΠ΄Π΅Ρ‚ это ΠΈΡΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ. Π’ пустых ячСйках появятся Π½ΡƒΠ»ΠΈ. Π­Ρ‚ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ, пСрСйдя Π² «Π€Π°ΠΉΠ»» β†’ «ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹» β†’ «Π”ΠΎΠΏΠΎΠ»Π½ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ» ΠΈ сняв Ρ„Π»Π°ΠΆΠΎΠΊ «ΠŸΠΎΠΊΠ°Π·Ρ‹Π²Π°Ρ‚ΡŒ Π½ΡƒΠ»ΠΈ Π² ячСйках с Π½ΡƒΠ»Π΅Π²Ρ‹ΠΌΠΈ значСниями».

Π›ΡŽΠ±Ρ‹Π΅ ячСйки, строки ΠΈΠ»ΠΈ столбцы, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ Π½Π΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ Π²ΠΈΠ΄Π΅Ρ‚ΡŒ Π½Π° своих распСчатках, Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ ΠΌΠΎΠΆΠ½ΠΎ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ. РаспСчатанный лист автоматичСски обновляСтся ΠΏΠΎ ΠΌΠ΅Ρ€Π΅ обновлСния исходного листа.

Если Π²Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅ Π±Π°Π·ΠΎΠ²Ρ‹ΠΉ лист для Π½Π΅ΡΠΊΠΎΠ»ΡŒΠΊΠΈΡ… Ρ†Π΅Π»Π΅ΠΉ ΠΈΠ»ΠΈ Π²Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ… ΠΏΠ΅Ρ€ΠΈΠΎΠ΄ΠΎΠ², Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ этот ΠΏΠ΅Ρ‡Π°Ρ‚Π½Ρ‹ΠΉ лист для Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ листа. ΠŸΡ€ΠΎΡΡ‚ΠΎ скопируйтС ΠΎΠ±Π° листа, ΠΈ Π½ΠΎΠ²Ρ‹ΠΉ ΠΏΠ΅Ρ‡Π°Ρ‚Π½Ρ‹ΠΉ лист Π±ΡƒΠ΄Π΅Ρ‚ ΡΡΡ‹Π»Π°Ρ‚ΡŒΡΡ Π½Π° Π½ΠΎΠ²Ρ‹ΠΉ лист.

Π£ мСня нСдостаточно ΠΎΡ‡ΠΊΠΎΠ² Ρ€Π΅ΠΏΡƒΡ‚Π°Ρ†ΠΈΠΈ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Ρ€ΡƒΠ³ΠΈΠ΅ сообщСния, поэтому я добавлю «ΠΎΡ‚Π²Π΅Ρ‚» с Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΌΠΈ коммСнтариями. Π£ мСня Π±Ρ‹Π»Π° такая ΠΆΠ΅ ΠΈΠ»ΠΈ похоТая ΠΏΠΎΡ‚Ρ€Π΅Π±Π½ΠΎΡΡ‚ΡŒ, ΠΈ Ρƒ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΏΠΎΠ΄Ρ…ΠΎΠ΄Π° Π΅ΡΡ‚ΡŒ свои ΠΏΠ»ΡŽΡΡ‹ ΠΈ минусы.

Настройка области ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ: это ΠΌΠΎΠΆΠ΅Ρ‚ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π² зависимости ΠΎΡ‚ ΠΌΠ°ΠΊΠ΅Ρ‚Π° листа, Π½ΠΎ Π½Π΅ слишком Ρ…ΠΎΡ€ΠΎΡˆΠΎ ΠΎΠ±Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°Π΅Ρ‚ нСсмСТный Π²Ρ‹Π±ΠΎΡ€ области ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ. Или, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΎΠ½ справляСтся с этим ΠΎΡ‡Π΅Π½ΡŒ Ρ…ΠΎΡ€ΠΎΡˆΠΎ, Π½ΠΎ Π²Ρ‹Π±Ρ€Π°Π½Π½Ρ‹ΠΉ ΠΏΠΎΠ΄Ρ…ΠΎΠ΄ Π½Π΅ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ Π² ΠΌΠΎΠ΅ΠΌ случаС. НапримСр, Ссли Ρƒ мСня Π΅ΡΡ‚ΡŒ элСктронная Ρ‚Π°Π±Π»ΠΈΡ†Π° со столбцами AE ΠΈ я Ρ…ΠΎΡ‡Ρƒ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ столбцы B ΠΈ D ΠΏΡ€ΠΈ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ, Ρ‚ΠΎΠ³Π΄Π° ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Π½Π°ΠΏΠ΅Ρ‡Π°Ρ‚Π°Π½Π½Ρ‹ΠΉ столбСц помСщаСтся Π½Π° ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½ΡƒΡŽ страницу. НС совсСм Ρ‚ΠΎ, Ρ‡Ρ‚ΠΎ я Ρ…ΠΎΡ‚Π΅Π».

ΠŸΡƒΡΡ‚ΠΎΠΉ тСкст: это ΠΌΠΎΠΆΠ΅Ρ‚ ΡΡ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π² Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… случаях, Π½ΠΎ ΠΎΡΡ‚Π΅Ρ€Π΅Π³Π°ΠΉΡ‚Π΅ΡΡŒ, Ρ‡Ρ‚ΠΎ это Π½Π΅ ΠΏΡ€Π΅Π΄ΠΎΡ‚Π²Ρ€Π°Ρ‚ΠΈΡ‚ ΡƒΡ‚Π΅Ρ‡ΠΊΡƒ скрытых Π΄Π°Π½Π½Ρ‹Ρ…. Если Π²Ρ‹ ΠΏΡ‹Ρ‚Π°Π΅Ρ‚Π΅ΡΡŒ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ ΠΊΠΎΠ½Ρ„ΠΈΠ΄Π΅Π½Ρ†ΠΈΠ°Π»ΡŒΠ½ΡƒΡŽ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ, ΠΈΠΌΠ΅ΠΉΡ‚Π΅ Π² Π²ΠΈΠ΄Ρƒ, Ρ‡Ρ‚ΠΎ ΠΏΡ€ΠΈ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ Π² PDF Π΄Π°Π½Π½Ρ‹Π΅ всС Ρ€Π°Π²Π½ΠΎ Π±ΡƒΠ΄ΡƒΡ‚ ΠΏΡ€ΠΈΡΡƒΡ‚ΡΡ‚Π²ΠΎΠ²Π°Ρ‚ΡŒ Π² PDF-Ρ„Π°ΠΉΠ»Π΅. Π”Π°ΠΆΠ΅ Ссли ΠΎΠ½ пустой Π½Π° пустом мСстС, ΠΎΠ½ всС Ρ€Π°Π²Π½ΠΎ присутствуСт ΠΈ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ скопирован ΠΈ вставлСн ΠΈΠ· PDF-Ρ„Π°ΠΉΠ»Π°.

Π― ΠΏΡ€Π΅Π΄ΠΏΠΎΡ‡ΠΈΡ‚Π°ΡŽ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ макросы для скрытия Π²Ρ‹Π±Ρ€Π°Π½Π½Ρ‹Ρ… столбцов ΠΏΡ€ΠΈ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ, хотя я знаю, Ρ‡Ρ‚ΠΎ это ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ Π½Π΅ΠΏΡ€ΠΈΠΌΠ΅Π½ΠΈΠΌΠΎ ΠΈΠ»ΠΈ Π½Π΅ Π»ΡƒΡ‡ΡˆΠΈΠΉ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Π²ΠΎ всСх ситуациях.

Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅:
Как быстро Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ пустыС / пустыС строки Π² Excel?

Если Ρ‰Π΅Π»ΠΊΠ½ΡƒΡ‚ΡŒ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ Π½Π° строкС/столбцС ΠΈ Π²Ρ‹Π±Ρ€Π°Ρ‚ΡŒ «Π‘ΠΊΡ€Ρ‹Ρ‚ΡŒ», ΠΌΠΎΠΆΠ½ΠΎ «ΡΠΊΡ€Ρ‹Ρ‚ΡŒ» всю строку/столбСц. Π’ этом случаС строка/столбСц Π½Π΅ Π±ΡƒΠ΄Π΅Ρ‚ ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒΡΡ (ΠΈΠ»ΠΈ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒΡΡ). МоТно Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ нСсколько строк/столбцов ΠΏΡƒΡ‚Π΅ΠΌ пСрСтаскивания, Ссли ΠΎΠ½ΠΈ находятся рядом Π΄Ρ€ΡƒΠ³ с Π΄Ρ€ΡƒΠ³ΠΎΠΌ, ΠΈΠ»ΠΈ Ρ‰Π΅Π»Ρ‡ΠΊΠΎΠΌ ΠΈ пСрСтаскиваниСм, Ссли ΠΎΠ½ΠΈ Π½Π΅ находятся рядом Π΄Ρ€ΡƒΠ³ с Π΄Ρ€ΡƒΠ³ΠΎΠΌ. НомСр/Π±ΡƒΠΊΠ²Π° столбца ΠΈΠ»ΠΈ строки Π½Π΅ отобраТаСтся, Ссли столбСц ΠΈΠ»ΠΈ строка скрыты. Π’Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ строки ΠΈ столбцы с ΠΎΠ±Π΅ΠΈΡ… сторон, Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ «ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ».

Π― Π½Π΅ ΡƒΠ²Π΅Ρ€Π΅Π½, Ρ‡Ρ‚ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ для прСдотвращСния ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ ΠΎΡ‚Π΄Π΅Π»ΡŒΠ½Ρ‹Ρ… ячССк, ΠΊΡ€ΠΎΠΌΠ΅ ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Ρ†Π²Π΅Ρ‚ ΡˆΡ€ΠΈΡ„Ρ‚Π°. Π’ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, это ΠΌΠΎΠΆΠ½ΠΎ Π°Π²Ρ‚ΠΎΠΌΠ°Ρ‚ΠΈΠ·ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ условного форматирования.

Π’Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ столбцы ΠΈΠ»ΠΈ строки, ΠΊΠ°ΠΊ описано Π²Ρ‹ΡˆΠ΅. ΠŸΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ прСдставлСния ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для примСнСния ΠΈ ΠΎΡ‚ΠΌΠ΅Π½Ρ‹ Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎ Π²Ρ‹ Π½Π΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΎΡ‚ΠΎΠ±Ρ€Π°ΠΆΠ°Ρ‚ΡŒ.

НапримСр, Ссли Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ вывСсти ΠΎΠ΄ΠΈΠ½ столбСц для поставщика, Π΄Ρ€ΡƒΠ³ΠΎΠΉ — для склада, Π° Ρ‚Ρ€Π΅Ρ‚ΠΈΠΉ ΠΏΠΎΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ всС, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ ΠΈΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡƒΠ°Π»ΡŒΠ½ΠΎΠ΅ прСдставлСниС для ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Ρ‚ΠΈΠΏΠ°.

Π•Ρ‰Π΅ ΠΎΠ΄ΠΈΠ½ простой способ — Π²Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎ ΠΎΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ содСрТимоС ячСйки, Π²Ρ‹Π΄Π΅Π»ΠΈΠ² Π²Ρ‹Π΄Π΅Π»Π΅Π½Π½Ρ‹Π΅ ячСйки — Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ ΠΏΡ€Π°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡ‹ΡˆΠΈ ΠΈ Π²Ρ‹Π±Π΅Ρ€ΠΈΡ‚Π΅ ΠΏΡƒΠ½ΠΊΡ‚ «ΠžΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ содСрТимоС».

Π²Π²Π΅Π΄ΠΈΡ‚Π΅ описаниС изобраТСния здСсь

Π’Π΅ΠΏΠ΅Ρ€ΡŒ Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ, Π° Π·Π°Ρ‚Π΅ΠΌ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ «ΠžΡ‚ΠΌΠ΅Π½Π°», послС Ρ‡Π΅Π³ΠΎ всС вСрнСтся Π½Π° ΠΊΡ€ΡƒΠ³ΠΈ своя.

Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ (скрытиС) строк ΠΏΠΎ ΡƒΡΠ»ΠΎΠ²ΠΈΡŽ

Π‘ ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ этого макроса ΠΌΠΎΠΆΠ½ΠΎ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ всС строки листа, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ содСрТат искомый тСкст:

Π§Ρ‚ΠΎΠ±Ρ‹ просто ΡΠΊΡ€Ρ‹Ρ‚ΡŒ эти строки вмСсто удалСния, Π·Π°ΠΌΠ΅Π½ΠΈΡ‚Π΅ строку

Π Π°ΡΡˆΠΈΡ€Π΅Π½Π½Π°Ρ вСрсия этого макроса — с использованиСм Ρ„ΠΎΡ€ΠΌΡ‹ UserForm для Π²Π²ΠΎΠ΄Π° значСния для поиска

Π‘Π»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠΉ ΠΊΠΎΠ΄ позволяСт ΠΈΡΠΊΠ°Ρ‚ΡŒ (Π° Π·Π°Ρ‚Π΅ΠΌ ΡƒΠ΄Π°Π»ΡΡ‚ΡŒ ΠΈΠ»ΠΈ ΡΠΊΡ€Ρ‹Π²Π°Ρ‚ΡŒ) Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ условия:

ConditionalRowsDeleting.xls24 ΠšΠ‘
ConditionalRowsDeletingUsingUserform.xls45.5 ΠšΠ‘
  • 223034 просмотры

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ

Π― Π½Π΅ занимаюсь ΠΏΠΎΠ΄Π΄Π΅Ρ€ΠΆΠΊΠΎΠΉ бСсплатных макросов ΠΈΠ»ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΈΡ… ΠΏΠΎ Π²Π°ΡˆΠ΅ΠΌΡƒ вкусу.

Π’ коммСнтариях ΠΊ ΡΡ‚Π°Ρ‚ΡŒΠ΅ Π΅ΡΡ‚ΡŒ ΠΎΡ‡Π΅Π½ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ΠΎΠ² ΠΏΠ΅Ρ€Π΅Π΄Π΅Π»ΠΊΠΈ этого макроса, — полистайтС ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚Ρ‹, ΠΌΠΎΠΆΠ΅Ρ‚ Π½Π°ΠΉΠ΄Π΅Ρ‚Π΅ подходящий Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ ΠΊΠΎΠ΄Π°.
Если ΠΆΠ΅ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Π³ΠΎΡ‚ΠΎΠ²ΠΎΠ΅ Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅, — оформляйтС Π·Π°ΠΊΠ°Π· Π½Π° сайтС, сдСлаю (ΠΏΠ»Π°Ρ‚Π½ΠΎ. минимальная ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒ Π·Π°ΠΊΠ°Π·Π° 1500 Ρ€ΡƒΠ±Π»Π΅ΠΉ)

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ ΠΊ этой ΡΡ‚Π°Ρ‚ΡŒΠ΅ Π² настоящСС врСмя Π½Π΅ ΠΏΡ€ΠΈΠ½ΠΈΠΌΠ°ΡŽΡ‚ΡΡ.

ΠŸΠΎΠΆΠ°Π»ΡƒΠΉΡΡ‚Π°, посовСтуйтС ΠΌΠ½Π΅. МоС Π·Π΄ΠΎΡ€ΠΎΠ²ΡŒΠ΅ ΡƒΡ…ΡƒΠ΄ΡˆΠ°Π΅Ρ‚ΡΡ Π² Ρ‚Π΅Ρ‡Π΅Π½ΠΈΠ΅ послСднСй Π½Π΅Π΄Π΅Π»ΠΈ. Π― Π½Π΅ ΠΌΠΎΠ³Ρƒ ΠΏΡ€Π΅ΠΎΠ±Ρ€Π°Π·ΠΎΠ²Π°Ρ‚ΡŒ ΡΡƒΡ‰Π΅ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠ΅ макросы, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΡΠΊΡ€Ρ‹Ρ‚ΡŒ строки. Π£ мСня Π΅ΡΡ‚ΡŒ Ρ‚Π°Π±Π»ΠΈΡ†Π° с числами. Π’ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΡΠΊΠΎΠΉ Ρ„ΠΎΡ€ΠΌΠ΅ Π½ΡƒΠΆΠ½ΠΎ ввСсти это Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅, ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΠ° скрытия ΠΈ ΠΏΠΎΠΊΠ°Π·Π°. ΠŸΠΎΠΌΠΎΠ³ΠΈΡ‚Π΅ поТалуйста. Π’Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠΌΠ΅Ρ‚ΡŒ Ρ€Π°Π·Π½ΠΎΠ΅ количСство строк. А Ρ†ΠΈΡ„Ρ€ΠΎΠ²Ρ‹Π΅ значСния Π½Π°Ρ‡ΠΈΠ½Π°ΡŽΡ‚ΡΡ со Π²Ρ‚ΠΎΡ€ΠΎΠΉ строки.

ЗдравствуйтС, Ρƒ мСня такая ситуация. Π•ΡΡ‚ΡŒ Ρ‚Π°Π±Π»ΠΈΡ†Π°, с 3000 строками, ΠΈ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π½ΠΎ 25 столбиками
ΠŸΠ΅Ρ€Π²Ρ‹Π΅ 10 столбиков Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Ρ‹ тСкстом, с 11 ΠΏΠΎ 25 столбик Π±Ρ‹Π²Π°ΡŽΡ‚ Ρ†ΠΈΡ„Ρ€Ρ‹. Как ΠΌΠ½Π΅ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ ΠΏΠΎΠ»Π½ΠΎΡΡ‚ΡŒΡŽ строку, Ссли Π² столбики с 11 ΠΏΠΎ 25 всС пустыС ячСйки ? Π° Ссли Ρ…ΠΎΡ‚ΡŒ ΠΎΠ΄Π½Π° ячСйка Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π°, Ρ‚ΠΎ строку Π½Π΅ Ρ‚Ρ€ΠΎΠ³Π°Ρ‚ΡŒ? Π½ΠΎ Π½Π° ΠΏΠ΅Ρ€Π²Ρ‹Π΅ Π΄Π΅ΡΡΡ‚ΡŒ столбиков Π½Π΅ Π½Π°Π΄ΠΎ ΠΎΠ±Ρ€Π°Ρ‰Π°Ρ‚ΡŒ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅

Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅:
Как автоматичСски ΠΎΡ‚ΠΊΡ€Ρ‹Π²Π°Ρ‚ΡŒ Ρ„Π°ΠΉΠ»Ρ‹ ΠΏΡ€ΠΈ запускС Excel?

Как ΡΠΎΠ·Π΄Π°Ρ‚ΡŒ Ρ‚Π°ΠΊΠΎΠ΅ ΠΆΠ΅ условиС для ΠΎΠ±ΡŠΠ΅Π΄ΠΈΠ½Π΅Π½Π½Ρ‹Ρ… ячССк, Π½ΠΎ с нСсколькими значСниями?

Π― Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±Ρ‹Π» Π΄ΠΎΠ³Π°Π΄Π°Ρ‚ΡŒΡΡ, ΠΊΠ°ΠΊΠΈΠ΅ листы Π½Π°Π΄ΠΎ ΠΎΠ±Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°Ρ‚ΡŒ, Π° ΠΊΠ°ΠΊΠΈΠ΅ Π½Π΅Ρ‚?
Π§Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ Π’Π‘Π• листы, — Π½Π°ΠΏΠΈΡˆΠΈΡ‚Π΅

Π’Ρ‹ Ρ‚Π°ΠΊ Π΄ΠΎΠ±Ρ€Ρ‹, Π½ΠΎ я Π½Π΅ ΠΌΠΎΠ³Ρƒ Π½Π°ΠΉΡ‚ΠΈ «3», «3А», «3Π‘» ΠΈΠ»ΠΈ «4».

ΠŸΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡ‚Π΅, ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ этот макрос для листов «2», «2A», «2B» ΠΈ Ρ‚. Π΄.?

Sub Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅Π‘Ρ‚Ρ€ΠΎΠΊΠŸΠΎΠ£ΡΠ»ΠΎΠ²ΠΈΡŽ()
Dim ra As Range, delra As Range, Π’Π΅ΠΊΡΡ‚Π”Π»ΡΠŸΠΎΠΈΡΠΊΠ° As String
Application.ScreenUpdating = False ‘ ΠΎΡ‚ΠΊΠ»ΡŽΡ‡Π°Π΅ΠΌ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ экрана

TextFind = «Hostname» ‘ удаляСт строки с этим тСкстом

‘ ΠΏΠ΅Ρ€Π΅Π±ΠΈΡ€Π°Π΅ΠΌ всС строки Π² ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ листа
For Each ra In ActiveSheet.UsedRange.Rows
‘ Ссли Π² строкС Π½Π°ΠΉΠ΄Π΅Π½ искомый тСкст
If Not ra.Find(Π’Π΅ΠΊΡΡ‚Π”Π»ΡΠŸΠΎΠΈΡΠΊΠ°, , xlValues, xlPart) Is Nothing Then
‘ добавляСм строку Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ для удалСния
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next
‘ Ссли подходящиС строки Π½Π°ΠΉΠ΄Π΅Π½Ρ‹ — удаляСм ΠΈΡ…
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

Если Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΎΠ±ΠΎΡ€ΠΎΡ‚ ΠΎΡ‚ΠΎΠ±Ρ€Π°Π·ΠΈΡ‚ΡŒ строки «EntireRow.Hidden = False»
Π’ΠΎ ΠΊΠ°ΠΊ ΠΎΡΡƒΡ‰Π΅ΡΡ‚Π²ΠΈΡ‚ΡŒ поиск тСкста Π² скрытых строках/столбцах?

ЗдравствуйтС. ΠŸΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡ‚Π΅, поТалуйста, ΠΊΠ°ΠΊ ΠΏΡ€ΠΎΠΏΠΈΡΠ°Ρ‚ΡŒ макрос Ρ‚Π°ΠΊ, Ρ‡Ρ‚ΠΎΠ± ΠΎΠ½:
1. удалял всС строки с Π·Π°Π»ΠΈΠ²ΠΊΠΎΠΉ Ρ†Π²Π΅Ρ‚ΠΎΠΌ, ΠΈΠ»ΠΈ
2. удалял всС строки, содСрТащиС ΠΊΠ°ΠΊΡƒΡŽ Π»ΠΈΠ±ΠΎ ячСйку с Π·Π°Π»ΠΈΠ²ΠΊΠΎΠΉ Ρ†Π²Π΅Ρ‚ΠΎΠΌ.
Бпасибо.

Π˜Π³ΠΎΡ€ΡŒ, спасибо Π·Π° макрос — ΠΎΠ½ ΠΎΠ±Π»Π΅Π³Ρ‡Π°Π΅Ρ‚ Тизнь! Π•ΡΡ‚ΡŒ Π»ΠΈ Ρƒ вас совСт, ΠΊΠ°ΠΊ Ρ€Π°Π±ΠΎΡ‚Π°Ρ‚ΡŒ с этим макросом, защищая лист?

Π”ΠΎΠ±Ρ€Ρ‹ΠΉ дСнь! ΠŸΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡ‚Π΅ поТалуйста, Как ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ макрос ΡΠΊΡ€Ρ‹Π²Π°ΡŽΡ‰ΠΈΠΉ строки ΠΏΡ€ΠΈ условии Ρ‡Ρ‚ΠΎ Π² Π΄Π²ΡƒΡ… подряд столбцах 0 ΠΈΠ»ΠΈ пусто? ΠΈ Ρ‡Ρ‚ΠΎΠ± ΠΎΠ½ запускался Π½Π΅ ΠΏΡ€ΠΈ ΠΎΡ‚ΠΊΡ€Ρ‹Ρ‚ΠΈΠΈ Ρ„Π°ΠΉΠ»Π°, Π° ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ?
Ρƒ мСня Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ с условиСм ΠΎΠ΄Π½ΠΎΠ³ΠΎ столбца, ΠΊΠ°ΠΊ Π΅Π³ΠΎ ΠΈΡΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d As Integer
d = UsedRange.Rows.Count + 1
For rwIndex = 1 To 31
colIndex = 3
If Cells(rwIndex, colIndex).Value = 0 Then
Rows(rwIndex).Hidden = True
End If
Next
End Sub

Π‘ΡƒΠ΄Ρƒ ΠΎΡ‡Π΅Π½ΡŒ Π±Π»Π°Π³ΠΎΠ΄Π°Ρ€Π½Π°:)

ЗдравствуйтС! ΠšΠΎΠ»ΠΈΡ‡Π΅ΡΡ‚Π²ΠΎ Π±ΠΎΠ»ΡŒΡˆΠΈΡ… Ρ‚Π°Π±Π»ΠΈΡ† часто Π²Ρ‹Π·Ρ‹Π²Π°Π΅Ρ‚ Ρƒ мСня ΠΏΡ€ΠΎΠ±Π»Π΅ΠΌΡ‹) Π’ ΠΎΠ΄Π½ΠΎΠΉ ΠΊΠ½ΠΈΠ³Π΅ Ρƒ мСня 25 листов Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ большой Ρ‚Π°Π±Π»ΠΈΡ†Π΅, для удобства ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ я создал макрос, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ скрываСт Π½Π΅Π½ΡƒΠΆΠ½Ρ‹Π΅ строки, столбцы ΠΈ ячСйки ΠΏΠΎ ΠΎΡ‡Π΅Ρ€Π΅Π΄ΠΈ Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ листС Π²ΠΎ всСй ΠΊΠ½ΠΈΠ³Π΅. Π― Ρ…ΠΎΡ‡Ρƒ ΠΈΠΌΠ΅Ρ‚ΡŒ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡ‚ΡŒ Ρ€Π°Π·Π²Π΅Ρ€Π½ΡƒΡ‚ΡŒ скрытыС ячСйки Π²ΠΎ всСй ΠΊΠ½ΠΈΠ³Π΅ ΠΎΠ΄Π½ΠΈΠΌ ΠΌΠ°Ρ…ΠΎΠΌ. И я Π½Π΅ ΠΌΠΎΠ³Ρƒ) Как ΠΈΡΠΏΡ€Π°Π²ΠΈΡ‚ΡŒ этот макрос, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΎΠ½ Ρ€Π°Π±ΠΎΡ‚Π°Π» Π² ΠΌΠΎΠ΄ΡƒΠ»Π΅ «Π­Ρ‚Π° ΠΊΠ½ΠΈΠ³Π°» для всСх листов сразу

Sub Show()
Columns.Hidden = False
Rows.Hidden = False

Π’Ρ€Π°Ρ‡ Π½Π°Π·Π½Π°Ρ‡ΠΈΠ», спасибо большоС! И ΠΈΠ·Π²ΠΈΠ½ΠΈΡ‚Π΅ Π·Π° Π½Π΅ΠΊΠΎΡ€Ρ€Π΅ΠΊΡ‚Π½ΠΎΡΡ‚ΡŒ:)

Π‘Π°Π½Π΄Π΅Ρ€, я написал ΠΊΠΎΠ΄ Ρ‚Π°ΠΊ, ΠΊΠ°ΠΊ Π²Ρ‹ просили, — Ссли Π² ячСйкС присутствуСт Ρ†ΠΈΡ„Ρ€Π°, Ρ‚ΠΎ строка удаляСтся.
А Π²Π°ΠΌ Π½Π°Π΄ΠΎ Π±Ρ‹Π»ΠΎ ΡƒΠ΄Π°Π»ΡΡ‚ΡŒ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ ячСйки с Π§Π˜Π‘Π›ΠžΠœ (Π° Π½Π΅ содСрТащиС Ρ†ΠΈΡ„Ρ€Ρ‹)
Π—Π°ΠΌΠ΅Π½ΠΈΡ‚Π΅

Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅:
Как быстро Π²ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ имя ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ Windows Π² ячСйку Π² Excel?

Π£Π²Ρ‹. Π°Π½Π°Π»ΠΎΠ³ΠΈΡ‡Π½ΠΎ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ «Π£Π΄Π°Π»ΠΈΡ‚ΡŒ (ΡΠΊΡ€Ρ‹Ρ‚ΡŒ) строки ΠΏΠΎ ΡƒΡΠ»ΠΎΠ²ΠΈΡŽ», Ρ‚ΠΎ Π΅ΡΡ‚ΡŒ, Ссли присутствуСт тСкст, скаТСм, «ΠΠ΄Π°ΠΏΡ‚Π΅Ρ€ AT-2000 14 B22» — Ρ‡Ρ‚ΠΎ Ρ‚Π°ΠΌ, Ρ‡Ρ‚ΠΎ Π² вашСм ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ удаляСтся строка. ΠœΡ‹ΡΠ»ΡŒ — числа содСрТат Ρ‡Ρ‚ΠΎ-Ρ‚ΠΎ Π»ΠΈΡ‡Π½ΠΎΠ΅.

Π‘Π°Π½Π΄Π΅Ρ€, Ρ‚Π°ΠΊ Ρ‡Ρ‚ΠΎ ΠΏΠΎΠΏΡ€ΠΎΠ±ΡƒΠΉΡ‚Π΅:

ЗдравствуйтС! ΠŸΡ€ΠΎΠΊΡ€ΡƒΡ‡ΠΈΠ²Π°Π», Ρ‡ΠΈΡ‚Π°Π» — Ρ‚Π°ΠΊ ΠΈ Π½Π΅ нашСл ΠΎΡ‚Π²Π΅Ρ‚Π° Π½Π° Π²Π°ΡˆΡƒ ΠΏΡ€ΠΎΠ±Π»Π΅ΠΌΡƒ, Π° ΠΎΠ½ Ρ‚Π°ΠΊΠΎΠ²: тСкстовая ΠΊΠΎΠ»ΠΎΠ½ΠΊΠ° ΠΈ Π°Π»ΡŒΡ‚Π΅Ρ€Π½Π°Ρ‚ΠΈΠ²Π½Ρ‹Π΅ числа — Π½ΡƒΠΆΠ½ΠΎ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ строки, содСрТащиС числа (ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅, СстСствСнно — Ρ€Π°Π·Π½Ρ‹Π΅). Бпасибо.

Π•Π²Π³Π΅Π½ΠΈΠΉ, ΠΏΡ€ΠΈ Ρ€Π°Π±ΠΎΡ‚Π΅ макросов, ΠΎΡ‚ΠΌΠ΅Π½Π° дСйствий Π² Excel Π½Π΅ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚
(Ρ‡Ρ‚ΠΎ сдСлано макросом, Π½ΠΈΠΊΠ°ΠΊ Π½Π΅ ΠΎΡ‚ΠΌΠ΅Π½ΠΈΡ‚ΡŒ, — Ρ‚Π°ΠΊ устроСн Excel)

ΠŸΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡ‚Π΅, поТалуйста, послС удалСния строк с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ макроса измСнСния ΠΏΠΎ ΠΊΠ°ΠΊΠΎΠΉ-Ρ‚ΠΎ ΠΏΡ€ΠΈΡ‡ΠΈΠ½Π΅ Π½Π΅ ΠΌΠΎΠ³ΡƒΡ‚ Π±Ρ‹Ρ‚ΡŒ восстановлСны.

ЗдравствуйтС, ΠΡƒΡ€ΡŒΡΠ½Π°.
Моя ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π½ΠΎΡ€ΠΌΠ°Π»ΡŒΠ½ΠΎ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚, — Ссли Π΅ΠΉ ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ Π½Π°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ
(настройка ΠΏΠΎΠ΄ ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ ΠΊΠΎΠ½ΠΊΡ€Π΅Ρ‚Π½Ρ‹ΠΉ сайт, — ΠΎΡ‚ 1500 Ρ€ΡƒΠ±, + сама ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° 2500 стоит)

PS: Π½Π° Π±ΡƒΠ΄ΡƒΡ‰Π΅Π΅, Ρ€Π°Π·ΠΌΠ΅Ρ‰Π°ΠΉΡ‚Π΅ ΠΊΠΎΠΌΠΌΠ΅Π½Ρ‚ Π½Π΅ Π² ΠΏΠ΅Ρ€Π²ΠΎΠΉ попавшСйся ΡΡ‚Π°Ρ‚ΡŒΠ΅, Π° Π² ΡΡ‚Π°Ρ‚ΡŒΠ΅ с описаниСм ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹-парсСра
http://excelvba.ru/programmes/Parser
ΠΌΠΎΠΆΠ΅Ρ‚Π΅ сразу ΠΎΡ„ΠΎΡ€ΠΌΠΈΡ‚ΡŒ Π·Π°ΠΊΠ°Π· Π½Π° парсСр, Π² Ρ‚Π°ΠΊΠΎΠΌ Π²ΠΈΠ΄Π΅:
http://excelvba.ru/programmes/Parser/order

ЗдравствуйтС Админ! Π”Π°Π²Π½ΠΎ вас ΠΈΡ‰Ρƒ. ΠΏΠΎΠ΄Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°ΡŽ Π½Π° БП Π·Π°ΠΊΡƒΠΏΠΊΠ°Ρ…, ΠΈ ΡƒΠΆΠ΅ Π·Π°ΠΌΡƒΡ‡ΠΈΠ»Π°ΡΡŒ с Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΊΠ°Ρ‚Π°Π»ΠΎΠ³ΠΎΠ², сил большС Π½Π΅Ρ‚. Π’Ρ€ΠΎΠ΄Π΅ Π±Ρ‹ ΠΊΡƒΠΏΠΈΠ»Π° Π³Ρ€Π°Π±Π±Π΅Ρ€ Ρƒ ΠΎΠ΄Π½ΠΎΠ³ΠΎ программиста, Π½ΠΎ ΠΎΠ½ мСня Π½Π΅ устраиваСт. НапримСр, стоит 2800 Π·Π° Π·Π°ΠΊΡƒΠΏΠΊΡƒ, Π° Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ с пСрСбоями. ΠŸΠΎΠ΄ΡΠΊΠ°ΠΆΠΈΡ‚Π΅, ΠΊΠ°ΠΊ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚ ваша ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° ΠΈ сколько ΠΎΠ½Π° стоит, ΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ Π΅Π΅ Π½Π°ΡΡ‚Ρ€ΠΎΠΈΡ‚ΡŒ ΠΏΠΎΠ΄ сайт, Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ я Ρ€Π°Π±ΠΎΡ‚Π°ΡŽ ΠΈ ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Π΅ΠΉ постоянно послС ΠΎΠΏΠ»Π°Ρ‚Ρ‹?

ΠœΡ‹ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ всС Π½Π° Π·Π°ΠΊΠ°Π·, Ρ‡Ρ‚ΠΎΠ±Ρ‹ всС Ρ€Π°Π±ΠΎΡ‚Π°Π»ΠΎ Ρ‚Π°ΠΊ, ΠΊΠ°ΠΊ Π½ΡƒΠΆΠ½ΠΎ.

Π₯ΠΎΡ‚ΡŒ ΡƒΠ±Π΅ΠΉΡ‚Π΅ — Π½Π΅ Ρ€Π°Π±ΠΎΡ‚Π°Π΅Ρ‚. ИдСя Π² Ρ‚ΠΎΠΌ, Ρ‡Ρ‚ΠΎ макрос срабатываСт ΠΏΡ€ΠΈ Π½Π°ΠΆΠ°Ρ‚ΠΈΠΈ Π½Π° ячСйку. Π‘Π΅Ρ€Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΈΠ· Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Π°ΠΊΡ‚ΠΈΠ²Π½ΠΎΠΉ строки ΠΈ 2 столбца, ΠΈΡ‰Π΅Ρ‚ Π½Π° Π΄Ρ€ΡƒΠ³ΠΎΠΌ листС ΠΈ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π΅Π³ΠΎ просто Π²Ρ‹Π΄Π΅Π»ΠΈΡ‚ΡŒ. Вся идСя.
Π’ ΠΊΠΎΠ΄Π΅ Π³Ρ€Π΅ΡˆΡƒ Π½Π°
«Π’Π·ΡΡ‚ΡŒΠ”Π°Π½Π½Ρ‹Π΅ = Cells(ActiveCell.Row, 2).Value»
Он Π½Π΅ Π±Π΅Ρ€Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ -> Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ‚ Π½Π°ΠΉΡ‚ΠΈ Π΅Π³ΠΎ Π½Π° Π΄Ρ€ΡƒΠ³ΠΎΠΌ листС. Как Π·Π°ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ Π΅Π³ΠΎ Π²ΠΈΠ΄Π΅Ρ‚ΡŒ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅. ( ΠšΠ°Π²Ρ‹Ρ‡ΠΊΠΈ ставил — Π½Π΅ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ‚.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim ra как пляТ, finra как пляТ

If Target.Cells.Value = «» Then Exit Sub
If Not Intersect(Target, Range(«AF3:AF5000»)) Is Nothing Then

Π’Π·ΡΡ‚ΡŒΠ”Π°Π½Π½Ρ‹Π΅ = Cells(ActiveCell.Row, 2).Value
Sheets(«Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚»).Select
For Each cell In Range(«A3:A2000»).Cells
If cell = Π’Π·ΡΡ‚ΡŒΠ”Π°Π½Π½Ρ‹Π΅ Then
If finra Is Nothing Then Set finra = cell Else Set finra = Union(finra, cell)
End If
Next

If Not finra Is Nothing Then finra.EntireRow.Select
Application.ScreenUpdating = True
End If
End Sub

АндрСй, ΠΏΠΎΠΏΡ€ΠΎΠ±ΡƒΠΉΡ‚Π΅.

Π‘ΠΎ скрытиСм строчСк всС ΠΎΡ‚Π»ΠΈΡ‡Π½ΠΎ. Π½ΠΎ Ρ‡Ρ‚ΠΎ Π΄Π΅Π»Π°Ρ‚ΡŒ, Ссли Π² дальнСйшСм ΠΌΠ½Π΅ Π½ΡƒΠΆΠ½ΠΎ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ скрытыС строки вновь Ρ€Π°ΡΠΊΡ€Ρ‹Ρ‚ΡŒ (Ρ‚.ΠΊ. ΠΏΡ€ΠΈΠ·Π½Π°ΠΊ для скрытия для Π½ΠΈΡ… ΠΌΠΎΠΆΠ΅Ρ‚ Π² Π±ΡƒΠ΄ΡƒΡ‰Π΅ΠΌ Π±Ρ‹Ρ‚ΡŒ Π½Π΅Ρ€Π΅Π»Π΅Π²Π°Π½Ρ‚Π΅Π½)?
Π‘Π΄Π΅Π»Π°Π» Ρ‚Π°ΠΊΡƒΡŽ Π±ΠΈΠ»Π΅Π±Π΅Ρ€Π΄Ρƒ, Π½ΠΎ скрытыС строки ΠΎΠ½ Π½Π΅ раскрываСт πŸ™ Π’ΠΈΠ΄ΠΈΠΌΠΎ Π½Π΅ Π²ΠΈΠ΄ΠΈΡ‚ скрытыС строки. ΠŸΠΎΠΌΠΎΠ³ΠΈΡ‚Π΅ совСтом поТалуйста!

Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅:
Как автоматичСски ΠΎΡ‚ΡΠΎΡ€Ρ‚ΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ Π΄Π°Π½Π½Ρ‹Π΅ Π² Ρ‚Π°Π±Π»ΠΈΡ†Π°Ρ… Google ΠΏΠΎ Π°Π»Ρ„Π°Π²ΠΈΡ‚Ρƒ?

Sub ΠœΠ°ΠΊΡ€ΠΎΡ()
Dim ra As Range, delra As Range, Π’Π΅ΠΊΡΡ‚Π”Π»ΡΠŸΠΎΠΈΡΠΊΠ° As String
Application.ScreenUpdating = False

Para cada ra Π² ActiveSheet. Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹ΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½. Ряды.

Если ra.Find(TextFind, , xlValues, xlPart) Π½ΠΈΡ‡Π΅Π³ΠΎ Π½Π΅ Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚, Ρ‚ΠΎΠ³Π΄Π°

If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next

If Not delra Is Nothing Then delra.EntireRow.Hidden = False
End Sub

ΠšΠΈΡ€ΠΈΠ»Π», Ρ‚Π°ΠΊ ΠΏΠΎΠΏΡ€ΠΎΠ±ΡƒΠΉΡ‚Π΅:
Π£Π΄Π°Π»ΡΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΠΈΠ‘Π’Π΅ΠΊΡΡ‚ΠΎΠΌ = Worksheets(«Π˜ΠΌΡΠ’торогоЛиста»).range(«a2:a10»)
ΠΈΠ»ΠΈ Ρ‚Π°ΠΊ
Π£Π΄Π°Π»ΡΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΠΈΠ‘Π’Π΅ΠΊΡΡ‚ΠΎΠΌ = Worksheets(2).range(«a2:a10»)

ЗдравствуйтС, ваш макрос ΠΎΡ‡Π΅Π½ΡŒ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ‚, подскаТитС, поТалуйста, ΠΊΠ°ΠΊ ΡΠ΄Π΅Π»Π°Ρ‚ΡŒ Ρ‚Π°ΠΊ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ искомыС слова Π±Ρ€Π°Π»ΠΈΡΡŒ Π½Π΅ ΠΈΠ· строки = Array(«Π˜ΠΌΡ*», «ΠšΠΎΠ»ΠΈΡ‡Π΅ΡΡ‚Π²ΠΎ», «Ρ‚Скст ?», «Ρ†Π΅Π½Π°*сти», «*78*»), Π° с Π΄Ρ€ΡƒΠ³ΠΎΠ³ΠΎ листа.

Бпасибо, Π·Π°Ρ€Π°Π±ΠΎΡ‚Π°Π»ΠΎ.
Ну я ΠΈ Ρ‚ΡƒΠΏΠΎΠΉ.

Sub ΠΏΠΎΠ³Ρ€ΡƒΠ·ΠΊΠ°()
Dim ra As Range, delra As Range
Application.ScreenUpdating = False ‘ ΠΎΡ‚ΠΊΠ»ΡŽΡ‡Π°Π΅ΠΌ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ экрана

‘ ΠΈΡ‰Π΅ΠΌ ΠΈ удаляСм строки, содСрТащиС Π·Π°Π΄Π°Π½Π½Ρ‹ΠΉ тСкст
‘ (ΠΌΠΎΠΆΠ½ΠΎ ΡƒΠΊΠ°Π·Π°Ρ‚ΡŒ сколько ΡƒΠ³ΠΎΠ΄Π½ΠΎ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ ΠΈ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ подстановочныС Π·Π½Π°ΠΊΠΈ)
Π£Π΄Π°Π»ΡΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΠΈΠ‘Π’Π΅ΠΊΡΡ‚ΠΎΠΌ = Array(«Π˜Π” ΠΏΡƒΠ½ΠΊΡ‚Π°:», «Π˜Π” ΠΌΠ°Ρ€ΡˆΡ€ΡƒΡ‚Π°:», _
«ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΌΠΎΠ΄Π΅Π»ΠΈ:», «Π‘ΠΊΠ»Π°Π΄ ΠΎΡ‚Π³Ρ€ΡƒΠ·ΠΊΠΈ:»)

‘ ΠΏΠ΅Ρ€Π΅Π±ΠΈΡ€Π°Π΅ΠΌ всС строки Π² ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΠΎΠΌ Π΄ΠΈΠ°ΠΏΠΎΠ·ΠΎΠ½Π΅ листа
For Each ra In ActiveSheet.UsedRange.Rows
‘ ΠΏΠ΅Ρ€Π΅Π±ΠΈΡ€Π°Π΅ΠΌ всС Ρ„Ρ€Π°Π·Ρ‹ Π² массивС
If ra.Row >= 17 Then
For Each word In Π£Π΄Π°Π»ΡΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΠΈΠ‘Π’Π΅ΠΊΡΡ‚ΠΎΠΌ
Next word
End If
‘ Ссли Π² ΠΎΡ‡Π΅Ρ€Π΅Π΄Π½ΠΎΠΉ строкС листа Π½Π°ΠΉΠ΄Π΅Π½ искомый тСкст
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
‘ добовляСм строку Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ для удалСния
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next

‘ Ссли подходящиС строки Π½Π°ΠΉΠ΄Π΅Π½Ρ‹, Ρ‚ΠΎ (оставтС ΠΎΠ΄Π½Ρƒ ΠΈΠ· ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΡ… строк)
If Not delra Is Nothing Then delra.EntireRow.Hidden = True ‘ скрываСм ΠΈΡ…
If Not delra Is Nothing Then delra.EntireRow.Delete ‘ удаляСм ΠΈΡ…
End Sub

ΠŸΠΎΠΆΠ°Π»ΡƒΠΉΡΡ‚Π°, подскаТитС Ρ‡Ρ‚ΠΎ Π½Π΅ Ρ‚Π°ΠΊ, Π² Ρ‚Π°ΠΊΠΎΠΌ исполнСнии Π½Π΅ Ρ…ΠΎΡ‡Π΅Ρ‚ ΡƒΠ΄Π°Π»ΡΡ‚ΡŒ с 17 строки.
Gjlcrf;bnt xnj yt nfr

If ra.row >= 17 then
For Each word In Π£Π΄Π°Π»ΡΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΠΈΠ‘Π’Π΅ΠΊΡΡ‚ΠΎΠΌ
.
Next word
end if

ΠŸΠΎΡ…ΠΎΠΆΠ΅ я Π½Π΅ ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ Π²Ρ‹Ρ€Π°Π·ΠΈΠ» свою ΠΌΡ‹ΡΠ»ΡŒ, Π² макросС DeleteStrokeSomeConditions Π΄ΠΎΠ»ΠΆΠ½Ρ‹ ΡƒΠ΄Π°Π»ΡΡ‚ΡŒΡΡ строки с ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½Ρ‹ΠΌ тСкстом Ρ‚ΠΎΠ»ΡŒΠΊΠΎ с 17 строки ΠΈ Π΄ΠΎ ΠΊΠΎΠ½Ρ†Π° листа.

ВмСсто
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
ΠΏΠΈΡˆΠ΅Ρ‚Π΅
ra.Replace («Π§Ρ‚ΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ», «»)

НуТСн макрос для удалСния тСкста с ΠΎΠΏΡ€Π΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ страницы.

ОписаниС Π·Π°Π΄Π°Ρ‡ΠΈ ΡƒΠΊΠ°Π·Ρ‹Π²Π°Π΅Ρ‚ Π½Π° Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎΡΡ‚ΡŒ использования Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΈ Excel — Π·Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ. Ctrl+H. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Π½Π°ΠΉΡ‚ΠΈ тСкст, написав Π΅Π³ΠΎ Π² find, оставив «Π—Π°ΠΌΠ΅Π½ΠΈΡ‚ΡŒ Π½Π°» пустым.

И ΠΌΠΎΠΆΠ΅Ρ‚ ΠΏΠΎΠ΄ΡΠΊΠ°Π·Π°Ρ‚ΡŒ, ΠΊΠ°ΠΊ Π½Π°ΠΉΡ‚ΠΈ ΠΈ ΡƒΠ΄Π°Π»ΠΈΡ‚ΡŒ тСкст ΠΈΠ· ΠΊΠΎΠ½ΠΊΡ€Π΅Ρ‚Π½ΠΎΠΉ строки.

голоса
Π Π΅ΠΉΡ‚ΠΈΠ½Π³ ΡΡ‚Π°Ρ‚ΡŒΠΈ
Бсылка Π½Π° ΠΎΡΠ½ΠΎΠ²Π½ΡƒΡŽ ΠΏΡƒΠ±Π»ΠΈΠΊΠ°Ρ†ΠΈΡŽ
Adblock
detector