Дякуємо Майку, який надав запитання Excel на цьому тижні:
Я намагаюся написати макрос, і я новачок у цьому. У мене є таблиця Excel довжиною в сотні сторінок і багато стовпців завширшки. Я хотів би, щоб макрос шукав лише стовпець "А" для "" (немає даних), а потім використовував дані з попереднього рядка, вибираючи зі стовпців "А" до "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 в останньому рядку ваших даних. Виберіть «Редагувати»> «Перейти»> «Спеціальні»> «Пробіли»> «ОК».
Далі потрібно ввести ту саму формулу у всі ці порожні клітинки. Для цього натисніть клавішу дорівнює, натисніть стрілку вгору, потім утримуйте Ctrl і натисніть Enter. Це повторить формулу на всі порожні клітинки.
Нарешті, змініть формули на значення. Виділіть весь діапазон даних, виберіть Редагувати> Копіювати, Редагувати> Спеціальна вставка> Значення> ОК.
Зверніть увагу, що якщо оригінальні дані Майка містили формули або містили рядки, які були частково порожніми, тоді ця процедура не буде працювати, було б краще дотримуватися макросу, показаного вище.
