Excel: macro per riempire celle vuote

[macio66]

Ciao
Avrei bisogno di creare una macro in excel per riempire delle celle vuote nella colonna A.
Aggiungo un link di esempio, di come mi arriva il file iniziale e di come deve essere implementato.
https://we.tl/duosAHJdGZ.
In pratica la colonna B mi serve per avere il numero esatto di righe (non sono mai uguali in ogni file), mentre la colonna A contiene il testo con le celle da riempire.
Partendo dalla cella due, dovrebbe copiare il testo e scriverlo su tutte le celle vuote, che incontra prima del nuovo test (da A a B), a questo punto dovrebbe copiare il secondo testo e scriverlo su tutte le celle vuote, che incontra prima del nuovo testo (da B a C) e così fino a raggiungere il numero di riga in cui vi e del testo nella colonna B.
Sperando di essermi spiegato in modo corretto, vi ringrazio anticipatamente del vostro aiuto (sempre che sia possibile farlo)

[alfrimpa]

Ciao Macio

Non so se ho capito bene ma prova questa macro

Codice: Seleziona tutto

Option Explicit
 
Sub prova()
 
    Dim rng As Range
    Dim cel As Range
    Dim parola As String
    Dim ur As Long
     
    ur = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("A1:A" & ur)
    Application.ScreenUpdating = False
    For Each cel In rng
        If cel.Value <> "" Then
            parola = cel.Value
        Else
            cel.Value = parola
        End If
    Next cel
    Application.ScreenUpdating = True
     
End Sub

[macio66]

Ciao alfrimpa
La macro che mi hai dato, lavora solo sulla colonna A, infatti si ferma sull'ultimo dato di questa colonna.
A me servirebbe invece, che tenesse conto dell'ultimo dato della colonna B e di conseguenza, compilasse la colonna A fino a quel punto.

[macio66]

Ciao alfrimpa
Non so se hai visto il link con l'immagine di esempio.
Con la tua macro si ferma al testo G (della colonna A) e rimangono vuote le ultime tre celle della colonna A, che invece dovrebbero essere compilate con la lettera G.
Spero di essermi spiegato.

[alfrimpa]

Ciao

Prova a sostituire questa istruzione

Codice: Seleziona tutto

ur = Cells(Rows.Count, 1).End(xlUp).Row

con

Codice: Seleziona tutto

ur = Cells(Rows.Count, 2).End(xlUp).Row

Al momento sono in vacanza e non ho il pc per provare.

[macio66]

Ciao

Con questa modifica funziona perfettamente.
Ti ringrazio e buone vacanze
ps: devo dire che in questo Forum, siete tutti molto disponibile e vi ringrazio per l'aiuto che date a noi principianti.
Grazie

[wallace&gromit]

C'è anche un sistema rapido per risolvere questo tipo di problemi senza macro:
in A3 scrivi:

Codice: Seleziona tutto

=A2

copi questa formula (Ctrl+C)
selezioni tutta la colonna A
premi il tasto F5
ti appare "vai a..."
fai clic su speciale
selezioni "celle vuote"
fai incolla (Ctrl+V)
fatto!