Kuldeep трябва да избере всяка трета клетка през диапазон от 1500 клетки. осигурява лудо решение.
Гледам видео
- Kuldeep иска да избере всяка трета клетка за 1500 клетки
- Кодът на макроса за обединяване на всички 500 клетки е твърде дълъг и причинява грешка при компилирането!
- Решение: Компилация 1, празно, празно. Копирайте тези три клетки и ги поставете в 1500 клетки
- Изберете 1500 клетки. Начало, Намиране и Избиране, Отидете на Специално, Константи, за да изберете всяка трета клетка
- След това, един ред на VBA, за да преместите селекцията N реда или колони.
- И накрая, VBA макрос, който да направи всичко
- Готин съвет: Ако използвате Ctrl + G за диалоговия прозорец Go To, той показва наскоро избрани диапазони.
- Готин съвет: В диалоговия прозорец Go To задръжте Shift, за да изберете от Current Cell към Go to cell.
- VBA съвет: Използване на UsedRegion за намиране на последния ред в работния лист
Видео транскрипция
Learn Excel From, Podcast Episode 2108: Изберете всяка трета клетка.
Това е дуз. Kuldeep изпраща въпрос. Казва, че разполага с данни от E24 до BEV24. Това са 1500 клетки. Той трябва да подбере всяка трета клетка. (неразбираемо - 00:14) макросът на обединението е твърде дълъг и генерира грешки. За какво говори той, макросъюзът?
Той говори за, той вече е опитал това, HOWTOSELECTEVERYTHIRDCELL. Запишете малко макро тук. Изберете тази клетка и след това бутони CONTROL, онази клетка, клетката, клетката, клетката, клетката. (неразбираемо - 00:33) отидете твърде далеч. Просто искам да видя как записват кода. Спрете записа. ALT + F8. HOWTOSELECTEVERYTHIRDCELL, EDIT, и това е наистина лошо. Няма магически начин да изберете всяка трета клетка. Просто трябва да изброите всички 500 клетки там, което ще отнеме повече време от избора на 500 клетки, нали? Просто безсмислено. Безсмислено, безсмислено, безсмислено. (За да може макрорегистраторът - 01:00) да няма по-добър начин да направи това.
Затова казах на Kuldeep, че това, което ще трябва да направим, това, което трябва да използваме, са специални клетки. Казах, че случайно всяка трета клетка е цифрова и всичко останало е текст? Не, казва той. Добре, ето какво ще направя. Ще отида на чисто нов ред и ще сложа 1 и след това нищо, нищо и ще копирам тези три клетки, тези три клетки така и тогава това, което ще направя, е да ще отида до края и ще избера всички тези клетки. Сега това са 1500 клетки, което е кратно на 3, и поставете, и това, което ще направи за мен е, че ще ми даде, че всяка трета клетка ще бъде цифрова, така, и красивото е това, което ние тогава можете да изберете, изберете оттук, напишете BEV26 и ще задържа клавиша SHIFT, когато щракна OK, и това ще избере до края, а след това HOME,НАМЕРИ И ИЗБЕРИ, ОТИДЕТЕ КЪМ СПЕЦИАЛНО, а аз искам КОНСТАНТИТЕ, щракнете върху OK и това, което сега направих е, че успях много бързо да избера всяка трета клетка.
Казвате, добре, каква полза от това? Как подтиквате избора, което е чудесен въпрос, но ето какво ще направим. Ще преминем към VBA. ALT + F11, ALT + F11, CONTROL + G, и тази красива малка част от кода тук. От селекцията ще компенсираме определен брой редове надолу, някакъв брой колони и ще изберете, нали? Така че, разглеждайки данните, искам да отида при Бил Джелен в E23. Всъщност искам да отида до Kuldeep в E24, което е 2 реда нагоре. Така че, ще кажа, отидете нагоре с 2 реда, натиснете ENTER и тази селекция, която беше всяка трета клетка, сега ще се премести нагоре.
Не е ли просто страхотно и всъщност написах четири малки макроса, единият наречен преместване нагоре, придвижване надолу, преместване наляво, придвижване надясно, защото когато показах на Kuldeep този метод, той е като, о, не, има 20 неща, които трябва да направя. И така, тук ще щракнем върху макроса за придвижване нагоре, който трябва да ме премести нагоре до ред 23, а след това преместване надясно, преместване надясно, преместване надолу, наляво, наляво, нали? Вижте, бихме могли просто … можем … след като вкараме това нещо там, наистина сме страхотни, че можем да раздвижваме нещата, знаете ли, а след това от там имаше още куп други неща, които Kuldeep искаше да направи . Искаше да копира и постави (неразбираемо - 03:14) да транспонира някъде другаде, нали, и това е всичко лесно, относително. Избира всяка трета клетка.
Сега, това, което ще ви покажа тук - защото подозирам, че Kuldeep иска да направи всичко това в макрос и не иска да прави стъпките отново и отново и отново, и хей, аплодирам това, това е страхотно - ще кажа ли на Kuldeep, първото нещо, което искам да направя е да искам да изберете всички клетки. (Където - 03:35) искате да изберете всяка трета клетка, искам да изберете всички клетки така, добре, и тогава ще кажем да преброим колко колони имаме, да разберем откъде сме започнали и след това да разберем от следващия наличен ред и аз използвам USEDRANGE, за да разбера къде е последният ред. Добавям 2 реда към това, така че това, което трябва да направите, е просто да намерите хубав празен ред надолу в ред 27. Нека да разгледаме и така 27 е празен ред. Кодът ще постави 1 в колона 5 на този празен ред,и след това ще копира 3 клетки. И така, E, F и G са в 3 клетки, които ще копираме там, и ще ги копираме в 1500 колони, които ще генерират поредица от 1 и празно, празно, 1, празно, празно, 1, празно, празно, чак до края на нашите данни, а след това СПЕЦИАЛНИТЕ КЛЕТКИ, това е дом, намерете и изберете, отидете на специални клетки, изберете константи, .SELECT.
Добре, така, сега, избрани са тези данни и тогава знаем, че искаме да вървим 4 реда нагоре и, бам, така, се качва, в този случай на ред 23. Kuldeep иска ред 24, (коригирайте кода един бит - 04:43) и след това натиснете стрелката надолу и сме готови.
Това е най-добрият начин, по който трябва да го направя. Ако някой има по-добър метод за избор на всяка трета клетка (неразбираем - 04:52), готин начин да направи това или всяка друга клетка или всяка четвърта клетка, по всякакъв начин оставете някои коментари в коментарите в YouTube.
Е, хей. Не съм популяризирал Power Excel With book или VBA with macros book, нито един. В тези книги има много чудесни съвети и трикове. Щракнете върху i в горния десен ъгъл, за да прочетете повече за книгата.
Добре. И така, в този епизод Kuldeep иска да избере всяка трета клетка за 1500 клетки. Той се опита да напише макрос, за да обедини всички 500 клетки, но това е твърде дълго и причинява грешка при компилирането. И така, решение 1: изграждане на 3-клетъчен масив с 1, празно, празно; копирайте тези 3 клетки и ги поставете в 1500 клетки; това създава диапазон от 1500 клетъчни колони с широк диапазон с 1, празно, празно, 1, празно празно; изберете 1500 клетки, намерете и изберете, отидете на специални, константи, избира всяка трета клетка; след това този ред на VBA, selection.offset.select, за да се придвижите нагоре по определен брой редове или колони или нещо друго; и накрая (неразбираемо - 05:52) VBA макрос, който да направи всичко.
Искам да благодаря на Kuldeep за изпращането на този въпрос и искам да ви благодаря, че се отбихте. Ще се видим следващия път за поредното излъчване от.
Свали файл
Изтеглете примерния файл тук: Podcast2108.xlsm
