Кулдіп повинен виділити кожну третю клітинку з діапазону 1500 комірок. забезпечує шалене рішення.
Переглянути відео
- Кулдіп хоче відібрати кожну третю клітинку на 1500 комірок
- Код макросу для об'єднання всіх 500 комірок занадто довгий і викликає помилку компіляції!
- Рішення: Збірка 1, порожня, порожня. Скопіюйте ці три комірки та вставте до 1500 комірок
- Виділіть 1500 комірок. Дім, Знайти та вибрати, Перейти до спеціального, Константи, щоб виділити кожну третю клітинку
- Потім один рядок VBA для переміщення виділених N рядків або стовпців.
- Нарешті, макрос VBA, щоб зробити все це
- Класна порада: якщо ви використовуєте Ctrl + G для діалогового вікна "Перейти", воно відображає нещодавно вибрані діапазони.
- Класна порада: У діалоговому вікні Go To утримуйте Shift, щоб вибрати з поточної комірки до комірки Go To.
- Порада VBA: Використання UsedRegion для пошуку останнього рядка на аркуші
Стенограма відео
Learn Excel From, Podcast Episode 2108: Виберіть кожну третю клітинку.
Це дурі. Кулдіп надсилає запитання. Каже, що має дані від E24 до BEV24. Це 1500 клітин. Йому потрібно відібрати кожну третю клітинку. (незрозуміле - 00:14) макрос об'єднання занадто довгий і генерує помилки. Про що він говорить, про союзний макрос?
Він говорить про те, що він вже спробував це, HOWTOSELECTEVERYTHIRDCELL. Запишіть тут трохи макросу. Виділіть цю комірку, а потім клавіші CONTROL, клітинку, клітинку, клітинку, клітинку, клітинку. (незрозуміло - 00:33) зайти занадто далеко. Я просто хочу подивитися, як вони записують код. Зупиніть запис. ALT + F8. ЯК ВИБЕРІТЬ ВСЕ ТРЕТІ КЛІТКИ, РЕДАКТУЙТЕ, а це насправді погано. Немає чарівного способу виділити кожну третю клітинку. Вам просто потрібно перерахувати всі 500 клітинок, що займе більше часу, ніж вибір 500 комірок, так? Просто безглуздо. Безглуздо, безглуздо, безглуздо. (Так що - 01:00) макрореєстратор не має кращого способу зробити це.
Тож я сказав Кулдіпу, що ми повинні будемо зробити, те, що ми повинні використати, - це спеціальні комірки. Я сказав, випадково, чи є кожна третя комірка числовою, а все інше - текстом? Ні, каже. Гаразд, ось ось що я збираюся робити. Я збираюся перейти до абсолютно нового рядка і поставити 1, а потім нічого, нічого, і я скопіюю ці три клітинки, ці три комірки подібні до цього, а потім, що я буду робити, це я ' м збираюся піти до кінця і вибрати всі ці клітинки. Зараз це 1500 клітинок, що кратно 3, і вставте, і що для мене буде робити, це дасть мені, що кожна третя комірка буде числовою, ось така, і найкрасивіше те, що ми це можна зробити, це вибрати, вибрати звідси, набрати BEV26, і я утримуватиму клавішу SHIFT, коли натискаю кнопку OK, і це буде вибрати до кінця, а потім ДОМАШНЄЗНАЙДІТЬ І ВИБЕРІТЬ, ПЕРЕЙТИ ДО СПЕЦІАЛЬНОГО, і я хочу КОНСТАНТИ, натисніть кнопку ОК, і те, що я зараз зробив, це мені вдалося дуже швидко виділити кожну третю клітинку.
Ви кажете: ну, яка це користь? Як ви підштовхуєте вибір, що є чудовим питанням, але ось що ми будемо робити. Ми перейдемо до VBA. ALT + F11, ALT + F11, CONTROL + G, і цей чудовий маленький код тут. З виділення ми збираємося компенсувати деяку кількість рядків вниз, деяку кількість стовпців і вибрати, добре? Отже, дивлячись на дані, я хочу перейти до Білла Джелена в E23. Насправді, я хочу поїхати до Кулдіпа в E24, тобто на 2 ряди вгору. Отже, я збираюся сказати, піднятись на 2 рядки вгору, натиснути ENTER, і виділення, яке було кожною третьою клітинкою, тепер рухатиметься вгору.
Хіба це не просто приголомшливо, і, насправді, я написав чотири маленьких макрокоманди, один з яких називається «рухатись вгору, рухатися вниз, рухатися ліворуч, рухатися праворуч, тому що коли я показав Кулдіпу цей метод, він схожий на, о ні, я маю 20 речей, повинен зробити. Отже, тут ми клацнемо макрос переміщення вгору, який повинен перемістити мене вгору до рядка 23, а потім переміщення вправо, переміщення вправо, переміщення вниз, ліворуч, ліворуч, право? Послухайте, ми могли б просто … ми можемо … як тільки ми заведемо ту річ туди, ми справді круті, щоб мати можливість переміщати речі, знаєте, а потім, звідти, була ціла купа інших речей, які Кулдіп хотів зробити . Він хотів скопіювати та вставити (незрозуміло - 03:14) перенести кудись ще, вірно, і це все відносно просто. Вибирається кожна третя комірка.
Тепер, що я вам тут покажу - тому що я підозрюю, що Кулдіп хоче робити все це в макросі і не хоче робити кроки знову і знову і знову, і привіт, я вітаю це, це приголомшливо - я збираюся сказати Кулдіпу, перше, що я хочу зробити, це те, щоб я вибрав усі клітинки. (Де - 03:35) ви хочете виділити кожну третю клітинку, я хочу, щоб ви виділили всі комірки так, добре, і тоді ми скажемо підрахувати, скільки стовпців у нас є, зрозуміти, з чого ми почали, а потім зрозуміти наступний доступний рядок, і я використовую USEDRANGE, щоб з’ясувати, де знаходиться останній рядок. Я додаю до цього 2 рядки, і що потрібно зробити, це просто знайти гарний порожній рядок вниз у рядку 27. Давайте подивимось, і так 27 - це порожній рядок. У коді буде розміщено 1 у стовпці 5 цього порожнього рядка,а потім збирається скопіювати 3 комірки. Отже, E, F і G знаходяться в 3 клітинках, які ми збираємося скопіювати туди, і ми скопіюємо їх у 1500 стовпців, які згенерують ряд 1s та blank, blank, 1, blank, пусте, 1, порожнє, порожнє, аж до кінця наших даних, а потім СПЕЦІАЛЬНІ клітини, це будинок, знайдіть і виберіть, перейдіть до спеціальних комірок, виберіть константи, .ВИБІР.
Гаразд, отже, зараз вибрано ці дані, і тоді ми знаємо, що хочемо піднятись на 4 рядки вгору, і, bam, так, він піднімається вгору, в цьому випадку на рядок 23. Кулдіп хоче рядок 24, (відкоригуйте код один біт - 04:43), а потім натисніть стрілку вниз, і ми готові піти.
Це найкращий спосіб мені це зробити. Якщо хтось має кращий спосіб вибрати кожну третю комірку (незрозумілий - 04:52), крутий спосіб зробити це, або кожну іншу комірку або кожну четверту комірку, неодмінно залиште кілька коментарів у коментарях YouTube.
Ну, привіт. Я не просував Power Excel With book або VBA з макросами, жоден. У цих книгах багато чудових підказок та підказок. Клацніть на i у верхньому правому куті, щоб прочитати більше про книгу.
Гаразд Отже, у цьому епізоді Кулдіп хоче виділити кожну третю клітинку на 1500 комірок. Він намагався записати макрос для об'єднання всіх 500 комірок, але це занадто довго і викликає помилку компіляції. Отже, рішення 1: побудуйте 3-клітинний масив з 1, blank, blank; скопіюйте ці 3 комірки та вставте до 1500 комірок; що створює діапазон 1500 комірок широкого діапазону комірок з 1, порожнім, порожнім, 1, порожнім порожнім; виділіть 1500 комірок, знайдіть і виділіть, перейдіть до спеціальних, констант, виділяє кожну третю комірку; потім цей рядок VBA, selection.offset.select, для переміщення вгору на деяку кількість рядків або стовпців або щось інше; а потім нарешті (незрозуміло - 05:52) макрос VBA, щоб зробити все це.
Я хочу подякувати Кулдіпу за те, що він надіслав це запитання, і хочу подякувати вам за заїзд. Ми побачимось наступного разу для чергової трансляції від.
Завантажити файл
Завантажте зразок файлу тут: Podcast2108.xlsm
