/ / Nájsť hodnotu v stĺpci, Vyplniť 'až do prázdnych buniek - Excel, vba, excel-vba

Nájdite hodnotu v stĺpci, naplňte až do prázdnej bunky - excel, vba, excel-vba

Mám problém nájsť spôsob, ako použiť makro, aby ste urobili nasledovné:

Nájdem posledný obývaný riadok Col A aaby ste vložili hodnotu v stĺpci B. Chcel by som vziať ten text, ktorý bol vložený do stĺpca B a vyplniť / skopírovať všetky prázdne bunky nad ním, až kým nebude prázdna bunka.

Každá slučka vloží do stĺpca B iný reťazec, čo je dôvod, prečo dúfam, že nájdem spôsob, ako vložiť reťazec do riadku, kým nenarazí na prázdnu bunku,

Napríklad:

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

Vyzerať ako:

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

Ospravedlňujem sa, ak je to strašne mätúce! Akákoľvek pomoc by bola veľmi ocenená!

odpovede:

1 pre odpoveď č. 1

Nie s makrom (hoci by sa dalo zaznamenať):

Vyberte stĺpecB, Ctrl + G, Špeciálne, začiarknite políčko Blanks, OK, =, Down, Ctrl + Enter.


1 pre odpoveď č. 2

Mám rád pnuts "riešenie a odporúčam, aby v prípade, že vaše dáta sú tak jednoduché, ako je uvedené, tento bit kódu VBA by tiež mal byť schopný poskytnúť požadovaný výsledok, ak hľadáte riešenie 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 pre odpoveď č. 3

Skúste niečo také, upravte podľa svojho vkusu:

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