Aggiunta automatica Nomi in Celle

Hai un problema con Excel?

Nuova discussione

Aggiunta automatica Nomi in Celle
di GQ (utente non iscritto) data: 19/11/2014 13:11:47
Buongiorno, altro quesito che forse potrebbe tornare utile ad altri.

Da un'estrazione di dati ottengo un elenco come allegato.

Vorrei creare una funzione o una macro che mi inserisca automaticamente il NOME nelle celle vuote, fino a che che non trova la cella occupata, e poi ricomincia da li'.

Capita spesso di avere grossi file che per piu' righe hanno lo stesso soggetto ripetuto ma mancante.
L'esempio allegato è sicuramente più chairo delle mie parole.

di Zer0Kelvin data: 19/11/2014 13:23:56
Ciao.
Puoi provare così

Sub test()
Dim LR As Long, I As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For I = 3 To LR
        If Cells(I, 1) = "" Then Cells(I, 1) = Cells(I - 1, 1)
    Next I
End Sub

di Grograman (utente non iscritto) data: 19/11/2014 13:25:17
Come me lo hanno spiegato giusto poco tempo fa, poi registrandoti lo metti in vibiaese :P

In A3 scrivi "=A2", selezioni da A2 a A10, premi F5 -> Speciale -> Celle Vuote, dai due volte invio

di Grograman (utente non iscritto) data: 19/11/2014 13:29:14
Uffi mi ha già preceduto Zerok! (Ciao)

A sto punto:

Sub test()
Dim LR As Long
  LR = Range("B" & Rows.Count).End(xlUp).Row
  Range("A2:A" & LR).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=+R[-1]C"
End Sub

di GQ (utente non iscritto) data: 19/11/2014 13:59:02
..mitici !!

di Zer0Kelvin data: 19/11/2014 14:29:10
Ciao Grograman
...e la possiamo anche fare un pò + corta

  Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=+R[-1]C"

Vuoi Approfondire?