Попълнете макрос на празните редове в Excel - Съвети за Excel

Благодаря на Майк, който предостави въпроса за Excel тази седмица:

Опитвам се да напиша макрос и съм нов в това. Имам електронна таблица на Excel, която е дълга стотици страници и много колони. Бих искал макросът да търси само в колона „A“ за „“ (без данни) и след това да използва данните от предишния ред, като избира от колони „A“ до „CB“ и след това да попълва, докато усети данни в клетка в колона „А“. След това трябва да се повтаря, докато всичко е направено.

Макросът по-долу ще свърши работа:

Public Sub CopyDown() LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value = "" Then Range("A" & i - 1 & ":CB" & i - 1).Copy Destination:=Range("A" & i) End if Next i End Sub

Но може да не се наложи да използвате макрос, за да правите това, което искате. По-бърз начин е да използвате триковете, въведени в tip от 12/12/98, за да постигнете същото нещо без макрос.

Първият трик е да изберете всички празни клетки от вашия избор. Маркирайте от A1 до CB в последния ред на вашите данни. Изберете Edit> GoTo> Special> Blanks> OK.

След това искате да въведете една и съща формула във всички тези празни клетки. За да направите това, натиснете клавиша за равно, натиснете стрелката нагоре, след това задръжте Ctrl и натиснете Enter. Това ще репликира формулата на всички празни клетки.

И накрая, променете формулите на стойности. Маркирайте целия диапазон от данни, изберете Редактиране> Копиране, Редактиране> Специално поставяне> Стойности> ОК.

Имайте предвид, че ако оригиналните данни на Mike съдържат формули или съдържат някои редове, които са частично празни, тогава тази процедура няма да работи, би било по-добре да се придържате към макроса, показан по-горе.