/ / Знайдіть значення у стовпці, заповніть 'до не порожньої клітини - excel, vba, excel-vba

Знайдіть значення у стовпці "Заповнити" до нелінійної клітинки - excel, vba, excel-vba

У мене виникають проблеми з пошуком способу використання макросу, щоб виконати наступне:

Я знаходжу останній населений ряд Col A ікомпенсуючи один стовпець, щоб вставити значення в колонці B. Я хотів би взяти цей текст, який був поміщений в колонку B, і заповнити / скопіювати всі порожні клітинки над ним, доки не буде чистої клітинки.

Кожна петля вставляє інший рядок у стовпці B, тому я сподіваюсь знайти спосіб вставити цей рядок в рядок, доки він не потрапляє до не порожньої клітинки.

Наприклад:

A                  B
Header        Header
9/30/14
9/30/14
9/30/14
9/30/14        text1
9/30/14
9/30/14
9/30/14
9/30/14        text2

Виглядати так:

A                  B
Header        Header
9/30/14        text1
9/30/14        text1
9/30/14        text1
9/30/14        text1
9/30/14        text2
9/30/14        text2
9/30/14        text2
9/30/14        text2

Вибачте, якщо це дуже заплутано! Будь-яка допомога буде вдячна!

Відповіді:

1 для відповіді № 1

Не з макросом (хоча можна записати):

Виберіть ColumnB, Ctrl + G, Special, перевірити Blanks, OK =, Down, Ctrl + Enter.


1 для відповіді № 2

Мені дуже подобається "pnuts" і рекомендую, якщо ваші дані настільки ж прості, як показано, цей біт коду VBA також повинен забезпечити бажаний результат, якщо ви шукаєте рішення VBA:

Sub tgr()

Dim rngBlanks As Range
Dim BlankArea As Range

Set rngBlanks = Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlCellTypeBlanks)

For Each BlankArea In rngBlanks.Areas
BlankArea.Value = BlankArea.Cells(1).Offset(BlankArea.Cells.Count).Value
Next BlankArea

End Sub

-1 для відповіді № 3

Спробуйте щось подібне, редагуйте відповідно до вашого смаку:

Sub answer()
lastA = Range("A65000").End(xlUp).Row
lastB = Range("B" & lastA).End(xlUp).Row + 1
value2Paste = "Whatever U want"
Range("B" & lastB & ":B" & lastA) = value2Paste
End Sub